Дано трёхзначное число. Определить, что оно чётно.
Дано трёхзначное число. Определить, что оно чётно.
Гость
Ответ(ы) на вопрос:
Гостьprogram zzz;
var x:integer;
begin
writeln('vvedi chislo');
readln(x);
if x mod 2=0 then writeln('×åòíîå') else writeln('Íå÷åòíîå')
end.
Не нашли ответ?
Похожие вопросы