Предмет:
ИнформатикаАвтор:
silly gillypma1Автор:
roqueАвтор:
duncan9yugvar a:integer;
begin
writeln ('Введите целое число:');
read (a);
if a mod 2 = 0 then begin
writeln ('Число четное');
end
else begin
writeln ('Число не четное');
end;
end.
Автор:
sweeneyДобавить свой ответ
Предмет:
Қазақ тiлiАвтор:
donavanОтветов:
Смотреть
Предмет:
Русский языкАвтор:
jordinОтветов:
Смотреть
Предмет:
МатематикаАвтор:
littleОтветов:
Смотреть