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

Question

Информатика

Кузьма

9 июня, 14:34

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

+3

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