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

Question

Информатика

Ольга

14 ноября, 04:15

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

+5

Ответы (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.