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


Masha1111222555
08.05.2020 07:50

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

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Marketing23
Marketing23
19.12.2021 13:23
Что нужно сделать для признания и осуществления авторских прав на компьютерную игру? Почему важно своевременно заявить о своих авторских правах? ​...
Семма0106
Семма0106
04.11.2021 03:20
Какое основание имеет система счисления со следующим алфавитом : (*#$)?...
veraruu
veraruu
04.11.2021 03:20
Дан двумерный массив размером n m заполненный целыми случайными числами. сформировать одномерный массив каждый элемент которого рамен произведению четных положительных элементов...
Gobbygo
Gobbygo
25.10.2022 14:53
Построить алгоритм ( счетчик) Вывести на экран ряд чисел : 2,4,6,8,10 (таблица цикла)...
nikmonastyrev
nikmonastyrev
24.12.2021 00:02
Задача на языке программирования Python: Замінити елементи списку, менші за середнє значення, нулями, а більші за середнє значення - одиницями (з прикладу: середнє значення...
Dashacolod
Dashacolod
31.01.2022 03:08
Напишіть програму-гру: 1. Комп ютер загадує випадкове число (скористайтеся модулем random) 2. Користувач вводить своє число (віджет Entry) 3. Кнопка під віном введення має...
вика3875
вика3875
19.09.2020 15:55
небольшой доклад про Робот-баскетболист CUE3​...
Ofsi
Ofsi
12.06.2022 22:22
В арифметической прогрессии первый член равен 3, третий член равен 11. Записать программу определения суммы n членов прогрессии. Вывести величину искомой суммы. (Характеристическое...
malia20092004
malia20092004
11.07.2022 07:05
Составить программу для проверки утверждения: «Результатами вычислений по формуле х2 + х + 17 при 0 больше или равно х больше или равно 15 являются простые числа». Все результаты...
kalaev19761
kalaev19761
17.12.2022 15:47
Определи правильный ответ. Ира, работая над проектом, создала на флешке следующие файлы: C:\Pусский\Задания\Карточка.bmp C:\Биология\Бактерии\Палочковидные.doc C:\Музыка\Копозиторы\Моцарт.bmp...
Ответ:
Leonardo81
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота