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

Question

Информатика

Вовуля

24 июля, 11:12

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

+3

Ответы (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.