Дано трехзначное число. проверить будет ли сумма его цифр четным числом. на Pascal abc

Question

Uolt

Информатика

15 ноября, 15:44

Дано трехзначное число. проверить будет ли сумма его цифр четным числом. на Pascal abc

+3

Ответы (1)

Знаешь ответ на этот вопрос?

София Григорьева · Answer 1

Program dsff;

uses crt;

var a, b, c, s: integer;

begin

readln (a);

s:=0;

b:=a mod 10;

a:=a div 10;

c:=a mod 10;

a:=a div 10;

s:=a+b+c;

if ((s mod 2) = 0) then writeln ('четное');

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

readln;

end.