Question

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

Answer 1

(pascal)

var a,b:integer

begin

while a<>5 do

begin

read(a);

if a>10 then b:b+a;

end;

write(b);

end.