Задано трехзначное число, написать программу на языке Паскаль, которая находит сумму его цифр и проверить четное оно или нет.

Question

Информатика

Моня

28 ноября, 18:20

Задано трехзначное число, написать программу на языке Паскаль, которая находит сумму его цифр и проверить четное оно или нет.

+3

Ответы (1)

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

Ниноня · Answer 1

Program gt;

var s, q, n:integer;

begin

s:=0;

while n>0 do

begin

q:=n mod 10;

n:=n div 10;

s:=s+q;

end;

writeln (s) ;

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

end.