Нужно написать программу в паскале. На вход поступает некое целое число икс(х).Х...

Question

Нужно написать программу в паскале.

На вход поступает некое целое число икс(х).Х принадлежит промежутку (-30000;30000)
Если Х четное и делится на 5 то выводится соответствующая надпись.Если нет- надпись не выводится

Answer 1

Var
  number : integer;
begin
  number := Random(-30000, 30000);
  if ((number mod 2 = 0) and (number mod 5 = 0)) then
    writeln('X удовлетворяет условию')
  else
    writeln('X не удовлетворяет условию');
end.