Moagas
4 год назад
С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.
ОТВЕТЫ
Ritter Johanna
Oct 24, 2020
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.
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.
678
Смежные вопросы: