Предмет: Информатика, автор: зв1здочка

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

Ответы

Автор ответа: mrsemen200
0
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.
Похожие вопросы
Предмет: Английский язык, автор: kayrat2122
Предмет: Математика, автор: makx12309873
Предмет: Алгебра, автор: Stanfly1