Нужно написать программу в паскале: дано целое трёхзначное число, определить является ли оно чётным.

fagsfssfs fagsfssfs    1   17.07.2019 03:30    6

Ответы
2001maks44 2001maks44  30.08.2020 19:17
Program pr;
uses crt;

var
a:integer;

Begin
writeln('Введите трёхзначное число');
readln(a);

if (a mod 2 = 0) 
    then writeln('Число четное') 
    else writeln('Нечетное');   

readln; 
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика