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

Sveta1314 Sveta1314    2   08.06.2019 21:30    2

Ответы
Юрашевич101 Юрашевич101  07.07.2020 22:00
var  sum,n:integer;
begin
n:=1;
while(n<>0) do begin
readln(n);
if(n>10) then
sum:=sum+n;
end;
writeln(sum);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика