С клавиатуры вводятся целые числа признаком конца ввода является 0. найти сумму тех чисел среди введённых, которое больше 10
С клавиатуры вводятся целые числа признаком конца ввода является 0. найти сумму тех чисел среди введённых, которое больше 10
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы