Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/47: Рейтинг темы: голосов - 47, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 05.03.2017
Сообщений: 10

Найти наименьшее натуральное число, дающее при делении на 3,4,5 соответствующие остатки

13.03.2017, 20:08. Показов 8779. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
найти наименьшее натуральное число, дающее при делении на 3,4,5 соответственно остатки 2,3,4. с помощью repeat
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.03.2017, 20:08
Ответы с готовыми решениями:

Найти наименьшее натуральное число, которое при делении на 11 и 20 дает, соответственно, остатки 7 и 1
Найдите наименьшее натуральное число , которое при делении на 11 и 20 дает, соответственно, остатки 7 и 19.

Найти наименьшее натуральное число х>1 , которое при делении на 2,3,4,5 и 6 дает в каждом случае остаток 1.
Найти наименьшее натуральное число х>1 , которое при делении на 2,3,4,5 и 6 дает в каждом случае остаток 1. помогите пажалуйста,...

Найдите наименьшее целое число, которое при делении на число 3,5 и 7дает в остатке соответственно 1.4 и 3
Найдите наименьшее целое число, которое при делении на число 3,5 и 7 дает в остатке соответственно 1.4 и 3

10
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
13.03.2017, 20:14
Pascal
1
2
3
4
5
6
7
8
9
10
var a,k:integer;
begin
a:=4;
k:=0;
repeat
if(a mod 3=2)and(a mod 4=3)and(a mod 5=4) then k:=1
else inc(a);
until k=1;
write(a)
end.
0
 Аватар для Alexandr212
101 / 98 / 112
Регистрация: 28.11.2016
Сообщений: 528
13.03.2017, 20:17
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  i: integer;
  flag: boolean;
 
begin
  i := 4;
  repeat
    inc(i);
    if (i mod 3 = 2) and (i mod 4 = 3) and (i mod 5 = 4)
      then flag:=true; 
  until flag;
  write(i);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
13.03.2017, 21:16
не нужны никакие флаги:
Pascal
1
2
3
4
5
var a: Integer;
begin
  a:=3; repeat Inc(a) until (a mod 3=2) and (a mod 4=3) and (a mod 5=4);
  WriteLn(a);
end.
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
13.03.2017, 21:30
Внимательно прочитав условие, перебор можно сократить в 10 раз.
Pascal
1
2
3
4
5
var a: Integer;
begin
  a:=9; repeat Inc(a, 10) until (a mod 3=2) and (a mod 4=3) and (a mod 5=4);
  WriteLn(a);
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
13.03.2017, 21:50
... или обойтись без перебора:
Pascal
1
begin WriteLn(3*4*5-1) end.
0
 Аватар для Alexandr212
101 / 98 / 112
Регистрация: 28.11.2016
Сообщений: 528
13.03.2017, 21:52
Да, это и правда самый простой вариант.
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8654 / 4489 / 1669
Регистрация: 01.02.2015
Сообщений: 13,898
Записей в блоге: 12
13.03.2017, 23:01
В детстве по формуле из Перельмана в уме находил ответ на такую задачу
(40*остаток3+45*остаток4+36*остаток5) mod 60.

Но у ТС уточнение
Цитата Сообщение от wyyden Посмотреть сообщение
с помощью repeat
Добавлено через 3 минуты
(40*2+45*3+36*4) mod 60 = (80+135+144) mod 60 = (20+15+24) mod 60 = 59 mod 60 = 59

Добавлено через 1 минуту
Помню, не мог понять закономерности для других подобных формул.
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
14.03.2017, 08:29
Цитата Сообщение от bormant Посмотреть сообщение
или обойтись без перебора:
Я бы обошёлся и без перебора (Ваше решение - первое, что пришло мне в голову), но у ТС написано
Цитата Сообщение от wyyden Посмотреть сообщение
с помощью repeat
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
14.03.2017, 09:01
кот Бегемот,
Pascal
1
  a:=3*4*5-11; repeat Inc(a,10) until (a mod 3=2) and (a mod 4=3) and (a mod 5=4);
0
Модератор
10412 / 5699 / 3401
Регистрация: 17.08.2012
Сообщений: 17,355
15.03.2017, 21:52
bormant, а почему не
Pascal
1
  a:=3*4*5-1; repeat until true;
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.03.2017, 21:52
Помогаю со студенческими работами здесь

Дано натуральное число а и целое положительное число d. Вычислить частное q и остаток r при делении а на d
1 Дано натуральное число а и целое положительное число d. Вычислить частное q и остаток r при делении а на d. 2. Дано трехзначное число....

Дано натуральное число a и целое положительное число d. вычислить частное q и остаток r при делении a на d, не используя явно операций деления
Дано натуральное число a и целое положительное число d. вычислить частное q и остаток r при делении a на d, не используя явно операций...

Найти все такие числа, что при делении всех исходных чисел на найденное получались равные остатки
Люк занимается международными грузоперевозками. Самая большая его проблема — это гра- ница с Польшей. Эта граница является въездом в...

Составьте программу, отыскивающую наименьшее натуральное число P, при котором P^2+P+41-составное число
Составьте программу, отыскивающую наименьшее натуральное число P, при котором P^2+P+41-составное число

Найдите хоть одно натуральное число, которое делится на 11, а при делении на 2, 3, 4, 5.10 дает в остатке 1
Всем доброго времени суток, вообщем: задали задание "Найдите хоть одно натуральное число, которое делится на 11, а при делении на 2, 3, 4,...


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru