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

Question

Информатика

Вовуня

1 августа, 16:02

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

+2

Ответы (1)

Знаете ответ на вопрос?

Петринка · Answer 1

Program pr;

uses crt;

var

a:integer;

Begin

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

readln (a) ;

if (a mod 2 = 0)

then writeln ('Число четное')

else writeln ('Нечетное') ;

readln;

end.