С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.
Answers & Comments
mrsemen200
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.
Answers & Comments
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.