С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.

Question

Информатика

Елена

29 декабря, 16:30

С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.

+1

Ответы (1)

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

Олдама · Answer 1

Var a, n, s: integer;

begin

a : = 1;

while a mod 5 0 do begin

readln (a) ;

if a > 10 then

begin

inc (n) ;

s : = s + a;

end;

end;

writeln (s) ;

end.