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

Question

Информатика

Петряня

2 октября, 18:28

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

+3

Ответы (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.