Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var x:integer;
begin
writeln(x=);
readln(x);
if (x mod 7=0) and ( x mod 2<>0) then writeln( cislo neciotnoe i kratno semi )
else 
writeln(cislo ciotnoe i nekratno semi );
readln;
end.