дана последовательность произвольных чисел. найти количество чисел, сумма которых не превышает заданное число. АВС паскаль
Answers & Comments
HiroX
Var sum, n, a, max: integer; begin write('введите макс число '); read(max); sum:=0; n:=0; writeln('вводите числа'); while (true) do begin read (a); if (a+sum) > max then break; sum:=sum+a; inc(n); end; write('кол во чисел ', n); end.
Answers & Comments
begin
write('введите макс число ');
read(max);
sum:=0; n:=0;
writeln('вводите числа');
while (true) do
begin
read (a);
if (a+sum) > max then break;
sum:=sum+a;
inc(n);
end;
write('кол во чисел ', n);
end.