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