С клавиатуры вводятся целые числа признаком конца ввода является 0. найти сумму тех чисел среди введённых, которое больше 10

Question

Павлуша

24 января, 20:25

+1

Ответы (1)

Знаете ответ на вопрос?

Викторин · Answer 1

var sum, n:integer;

begin

n:=1;

while (n0) do begin

readln (n) ;

if (n>10) then

sum:=sum+n;

end;

writeln (sum) ;

readln;

end.