Question

с клавиатуры вводится одно число. вывести на экран слово да, если оно делится на 2 и на 4 и слово нет, если не делится. паскаль

Answer 1

var

x : integer;//если нужно вещественное просто смените тип данных

begin

readln(x);

if x mod 4 = 0 then writeln('да')

else writeln('нет');

end.