с клавиатуры вводятя числа, пока не будет введено делящееся на 5, посчитать сумму тех из них, которые больше 10
Ответы
Ответ дал:
0
(pascal)
var a,b:integer
begin
while a<>5 do
begin
read(a);
if a>10 then b:b+a;
end;
write(b);
end.
Похожие вопросы
2 года назад
2 года назад
8 лет назад
9 лет назад