Составьте программу, определяющую, является ли введённое с клавиатуры целое число чётным.
Составьте программу, определяющую, является ли введённое с клавиатуры целое число чётным.
Гость
Ответ(ы) на вопрос:
ГостьBasic
input A / вводим число с клавиатуры
if A/2 then B = "четное" else B = "нечетное" / если А делится на 2, то чет, иначе нечет.
print A" - "B / печать А - чет или нечет.
end
ГостьPascal
program checker;
var a,c:integer;
begin
writeln('Введите число, четность или нечетность которого следует определить.');
readln(a);
c:=a mod 2;
if c <>0 then begin
writeln('Число ',a,' не является четным');
end;
if c=0 then begin
writeln('Число ',a,' является четным.');
end;
readln;
end.
Не нашли ответ?
Похожие вопросы