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

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

Если Х четное и делится на 5 то выводится соответствующая надпись. Если нет - надпись не выводится

Question

Информатика

Вестита

12 февраля, 06:39

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

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

Если Х четное и делится на 5 то выводится соответствующая надпись. Если нет - надпись не выводится

+1

Ответы (1)

Знаете ответ на вопрос?

Альбина · 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.