Найти количество натуральных чисел,сумма которых не превышает 100

znikitai znikitai    1   31.05.2019 07:20    1

Ответы
GoldFish1701 GoldFish1701  01.07.2020 19:17
Var sum, i: integer;
begin
sum := 0;
i := 0;
repeat
inc(i);
inc(sum, i);
until sum > 100;
writeln(i - 1)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика