Войти Регистрация Спроси ai-bota

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

Показать ответ

Ответ:

soynova89

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.

0,0(0 оценок)

Популярные вопросы: Информатика

naystya6768oz59bt

19.09.2021 11:52

Что такое Alight Motion?...

sawulja123D

07.01.2020 12:16

Выбери параметры, которые необходимо задать в функции load() для загрузки изображения...

Киря0701

24.05.2023 19:44

Запиши программу на языке программирования Pascal Дано 7 целых чисел Напиши программу нахождения наибольшего ненулевого среди них.Спамеров баню сразу!...

оллл11

27.03.2022 18:58

К наименее необходимым программам электронного управления и документооборота относятся a) текстовые редакторы b) системы управления базами данных c) системы телеконференций...

алеся678

25.11.2021 17:36

Какие отрезки можно соединить двумя прямыми линиями чтобы получить прямоугольник выполнить такой же чертеж в тетради и проведи нужно отрезки сколько прямоугольников...

rrxxmarta

25.11.2021 17:36

Чому дорівнює напруга на ділянці кола,на якій за 30 с із силою струму 2а виконано роботу 600дж?...

Damirok21

25.11.2021 17:36

Вычислите массовую долю каждого элемента в % в оксиде алюминия...

khodha

25.11.2021 17:36

До прикметника глибоке добери антонім,а до безкрає-синонім...

SovaUtuber

25.11.2021 17:36

Вспомните все 12 согласных, парных по звонкости-глухости.запишите слова с ними по образцу. гриб, суп, удав, дуб, мороз, стог, шалаш, нос, плот, сторож, шарф, торт,...

yunis2007

25.11.2021 17:36

Установите правильную последовательность расположения объектов по направлению с запада на восток: а) пиренейский полуостров; б) памир; в) японское море; г) нью-йорк....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку