Найти количество натуральных чисел,сумма которых не превышает 100
Найти количество натуральных чисел,сумма которых не превышает 100
Гость
Ответ(ы) на вопрос:
Гостьvar sum, i: integer;
begin
sum := 0;
i := 0;
repeat
inc(i);
inc(sum, i);
until sum > 100;
writeln(i - 1)
end.
Не нашли ответ?
Похожие вопросы