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

Question

Информатика

Милена

1 декабря, 17:21

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

+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.