Нужно написать программу в паскале.
На вход поступает некое целое число икс(х).Х принадлежит промежутку (-30000;30000)
Если Х четное и делится на 5 то выводится соответствующая надпись.Если нет- надпись не выводится
Ответы
Ответ дал:
0
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.
number : integer;
begin
number := Random(-30000, 30000);
if ((number mod 2 = 0) and (number mod 5 = 0)) then
writeln('X удовлетворяет условию')
else
writeln('X не удовлетворяет условию');
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад