Помогите написать программу в Pascal abc

Question

Информатика

Гала

27 января, 07:44

Помогите написать программу в Pascal abc

+3

Ответы (1)

Знаете ответ?

Милетя · Answer 1

Program ok;

var

num:integer;

a, b, c:integer;

begin

readln (num) ;

a:=num mod 10; num: = (num-a) div 10;

b:=num mod 10; num: = (num-b) div 10;

c:=num;

num:=a+b+c;

if num or 1 = num then

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

readln;

end.