Вывести все четырехзначные числа, которые делятся на 45, а две средние цифры у них 97 - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.53/19:

@2323 0 / 0 / 0 Регистрация: 24.02.2014 Сообщений: 29

	Вывести все четырехзначные числа, которые делятся на 45, а две средние цифры у них 97 13.04.2014, 23:44. Показов 4094. Ответов 1 Метки нет (Все метки) 1. Вывести все четырехзначные числа, которые делятся на 45, а две средние цифры у них 97. 0

Лучшие ответы (1)

Сообщение: #6041124

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

13.04.2014, 23:44

Ответы с готовыми решениями:

Найти все симметричные четырехзначные натуральные числа (например, 7557,1221), которые делятся на заданное
в Pascal найти все симметричные четырехзначные натуральные числа (например, 7557,1221), которые делятся на заданное число А.

Найдите все четырехзначные числа, в которых есть две одинаковые цифры
Помогите пожалуйста с програмированием в Паскале! задача: найдите все четырехзначные числа, в которых есть две одинаковые цифры ...

Найти все четырехзначные числа, в которых есть две одинаковые цифры
найти все четырехзначные числа, в которых есть две одинаковые цифры

Kodzaev

3030 / 1916 / 1649

Регистрация: 30.04.2011

Сообщений: 3,060

13.04.2014, 23:54

Сообщение было отмечено 2323 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var
  a, b: integer;
 
begin
  for a := 1 to 9 do
    for b := 0 to 9 do
      if (a * 1000 + 900 + 70 + b) mod 45 = 0 then
        Write(a, 9, 7, b, ' ');
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

13.04.2014, 23:54

Помогаю со студенческими работами здесь

Получить все числа, не превышающие заданного числа n, которые делятся без остатка на все свои цифры
получить все числа не превышающие заданного числа n, которые делятся без остатка на все свои цифры.

Найти все числа, не превосходящие заданного N (10<N<10000), которые делятся на все свои цифры.
как решить следующую задачу? Задача Д1. Найти все числа, не превосходящие заданного N (10<N<10000), которые делятся на все свои...

Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры
Написал данную программу, но не могу понять, куда нужно вставить условие для промежутка (чтобы при выходе за промежуток выдавало сообщение...

Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5
Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5. Надо сделать в программе Pascal ABC

Найти и вывести все трёхзначные числа, которые которые делятся на каждую из своих цифр
Найти и вывести все трёхзначные числа, которые которые делятся на каждую из своих цифр. На ноль делить нельзя. Решать через вложенные циклы.

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

Наверх