logo
Войти Регистрация Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Vadim12045683777779

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

Показать ответ
Ответ:
ssmolden
ssmolden
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 оценок)
Популярные вопросы: Информатика
Leerikaa
Leerikaa
01.12.2022 11:42
Перечислите системы цветопередачи, используемые на пк...
elv1n
elv1n
07.01.2021 00:38
Можно ли записать 17 видеороликов размером 490мбайт на новую флешку ёмкостью 8 гбайт? ( с решением )...
sesol14
sesol14
14.12.2020 20:52
1.выберите файл, созданный программой ms access: варианты: 1) as.mdb 2) as.xls 3) as.doc 4) as.ppt 2.пользователь работал с каталогом c: сначала он поднялся на один уровень вверх,...
Djeka11
Djeka11
26.11.2021 23:02
Во сколько уменьшится информационный объем страницы текста ( текст не содержит символов форматирования ) при его преобразовании из котировки unicode ( таблица кодировали содержит...
вика3730
вика3730
26.11.2021 23:02
Какое количество информации необходимо для кодирования каждого из 256 символов алфавита ?...
Nikstone
Nikstone
26.11.2021 23:02
Какое количество информации необходимо для кодирования из 65536 символов алфавита ?...
achreneti21
achreneti21
26.11.2021 23:02
Черно-белое растровое ( без градаций серого цвета ) графическое изображение имеет размер 10х10 точек . какой объем памяти займет это изображение ?...
masyanyapar
masyanyapar
26.11.2021 23:02
Цветное ( с палитрой из 256 цветов) растровое графическое изображение имеет размер 10х10 точек . какой объем памяти займет это изображение ?...
ekaterinaparsh1
ekaterinaparsh1
11.11.2022 07:08
1.составить таблицу истинности.2.построить логическую схему...
Yarik346
Yarik346
04.05.2021 06:36
Выполнить в electronic workbench...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота