Написать программу в Паскале и составить алгоритм. Вводится число х, определить нечетное оно и кратно ли 7. Вывести сообщение на экран.

Question

Информатика

Владлена

10 июля, 16:07

Написать программу в Паскале и составить алгоритм. Вводится число х, определить нечетное оно и кратно ли 7. Вывести сообщение на экран.

+2

Ответы (1)

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

Минуша · Answer 1

Var x:integer;

begin

writeln ('x=') ;

readln (x) ;

if (x mod 7=0) and (x mod 20) then writeln (' cislo neciotnoe i kratno semi ')

else

writeln ('cislo ciotnoe i nekratno semi ') ;

readln;

end.