Предмет: Информатика,
автор: Nhder
Найти количество натуральных чисел,сумма которых не превышает 100
Ответы
Автор ответа:
0
var sum, i: integer;
begin
sum := 0;
i := 0;
repeat
inc(i);
inc(sum, i);
until sum > 100;
writeln(i - 1)
end.
begin
sum := 0;
i := 0;
repeat
inc(i);
inc(sum, i);
until sum > 100;
writeln(i - 1)
end.
Интересные вопросы
Предмет: География,
автор: izabellkasabyan
Предмет: Литература,
автор: segerusplay
Предмет: Русский язык,
автор: quludordoi823
Предмет: Математика,
автор: vano00
Предмет: Математика,
автор: nastia25042003