Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kisel2014
21.09.2022 05:31 •
Информатика
При каком наименьшем введенном числе d после выполнения программы будет напечатано 121?
Показать ответ
Ответ:
пожалуйста189
07.10.2020 08:35
89
//Pascal
//Проверочная программа
var n,s,d: integer;
begin
d := 0;
while n <> 121 do
begin
n := 1; s := 46; d := d + 1;
while s <= 2700 do
begin
s:=s+d;
n:=n+4;
end;
writeln(d, ' ',n);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zephy
04.10.2021 21:23
Создайте функцию commonelements(tuple1, tuple2), которая принимает 2 кортежа в качестве аргументов возвращает отсортированный кортеж, состоящий из общих элементов переданных...
ужасер
17.01.2021 17:27
Напишите программу которая находит минимальное и максимальное среди чётных положительных чисел, записенных в файле, и выводит результат в другой файл. учтите что таких чисел...
nastyonakononenkova
17.01.2021 17:27
Напишите программу которая находит среднее арифметическое всех чисел записанных в файле в столбик и выводит результат в другой файл...
shkola56
19.01.2022 05:43
Составить алгоритм решения ребуса кот + кот = ток (различные буквы обозначают различные цифры, старшая — не 0). лучше все если на vba...
1234567da
19.03.2022 10:25
Незнакомый человек оставил комментарий на ютуб. Владелец канала под которым был этот комментарий его удалил. Как найти этот удаленный комент? Не говорите что это невозможно,...
bonipasol1
09.01.2023 14:44
Описать рекурсивную функцию Fact(N) типа данных long long, вычисляющую значение факториала N! = 1·2·. . .·N (N 0 — параметр целого типа)....
Игорь2019365
02.02.2021 00:03
CРОЧНО!НЕОБХОДИМО РЕШИТЬ ЗАДАЧУ НА PYTHON! В некотором вузе абитуриенты проходят предварительное тестирование, по результатам которого могут быть допущены к сдаче вступительных...
dilayra16
21.10.2021 05:34
Четыре бизнесмена решили обменяться между собой ВИЗИТками, СКОЛЬКО ВИЗИТОК ИМ потребуется?А. 15;Б. 30;В. 25;Г. 20....
olga2610
15.08.2020 16:29
1.какой последовательность команд создаётся многоуровневый список? 2.как установить красную строку(абзац) в текстовом редакторе?...
хххххх15
13.02.2020 19:22
Напишите программу для вычисления значения выражения (Пайтон)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Pascal
//Проверочная программа
var n,s,d: integer;
begin
d := 0;
while n <> 121 do
begin
n := 1; s := 46; d := d + 1;
while s <= 2700 do
begin
s:=s+d;
n:=n+4;
end;
writeln(d, ' ',n);
end;
end.