Паскаль, цикл while, срочно!!
Запрашивать числа до тех пор пока их сумма не станет >=100,вывести количество чисел
Запрашивать числа до тех пор пока их сумма не станет >=100,вывести количество чисел
More Questions From This User See All
Answers & Comments
var a,b,c:integer;
begin
b:=0;
while b<=100 do
begin
readln(a);
b+=a;
c+=1;
end;
write(c);
end.