Подсчитать количество и сумму четных четырехзначных чисел Pascal ABC

Question

Информатика

Степа

14 января, 00:02

Подсчитать количество и сумму четных четырехзначных чисел Pascal ABC

+3

Ответы (1)

Знаете ответ на вопрос?

Савватей · Answer 1

Program abc;

var a, b, c, sum, col:integer;

begin

readln (a) ;

b:=0;

col:=0;

sum:=0;

while a0 do

begin

c:=a;

while c0 do

begin

b:=b+1;

a:=a div 10

end;

if b=4 then

col:=col+1;

sum:=sum+a;

readln (a)

end;

writeln (sum) ;

writeln (col) ;

end.