Question

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

Answer 1

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