Борис
5 год назад
С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.
ОТВЕТЫ
Platon
Oct 24, 2020
var a,k,sum:integer;
begin
while (sum < 100) do
begin
readln(a);
k:=k+1;
sum:=sum+a;
end;
writeln(k);
end.
begin
while (sum < 100) do
begin
readln(a);
k:=k+1;
sum:=sum+a;
end;
writeln(k);
end.
610
Смежные вопросы:
