Дано трёхзначное число. Определить, что оно чётно.

Ответы

Ответ дал: GraDiSok
0

program zzz;
var x:integer;
begin
writeln('vvedi chislo');
readln(x);
if x mod 2=0 then writeln('×åòíîå') else writeln('Íå÷åòíîå')
end.

Похожие вопросы