Дана последовательность произвольных чисел. найти количество чисел, сумма которых не превышает заданное число. АВС паскаль

Question

Информатика

Артемей

7 марта, 09:44

Дана последовательность произвольных чисел. найти количество чисел, сумма которых не превышает заданное число. АВС паскаль

+2

Ответы (1)

Знаете ответ на вопрос?

Федорыч · Answer 1

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.