Написать программу в Паскале и составить алгоритм. Вводится число х, определить нечетное оно и кратно ли 7. Вывести сообщение на экран.
Написать программу в Паскале и составить алгоритм. Вводится число х, определить нечетное оно и кратно ли 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.
Не нашли ответ?
Похожие вопросы