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

Question

Информатика

Витуся

18 ноября, 01:08

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

+4

Ответы (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.