Предмет: Информатика,
автор: зв1здочка
С клавиатуры вводятся числа, пока не будет введено число, делящееся на 5. Подсчитать количество и сумму тех, которые больше 10.
Ответы
Автор ответа:
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.
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
Предмет: Литература,
автор: likuska2012
Предмет: Алгебра,
автор: Stanfly1