Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
MrXayc
1 / 1 / 0
Регистрация: 05.04.2015
Сообщений: 32
#1

Найти минимальное число, большее n, которое нацело делится на 19 - Pascal

12.04.2015, 21:13. Просмотров 665. Ответов 3
Метки нет (Все метки)

Дано число n. Необходимо найти минимальное число, большее n, которое нацело делится на 19.
Требуется вывести искомое число.| Используйте команду while. И если понадобятся if, for.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2015, 21:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти минимальное число, большее n, которое нацело делится на 19 (Pascal):

Наименьшее общее кратное (НОК) двух натуральных чисел – это наименьшее число, которое делится нацело на оба ис
Здравствуйте,помогите пожалуйста написать код,спасибо.Наименьшее общее кратное...

Найти числа А и В, если известно, что первое четырехзначное число нацело делится на 99
Даны два двузначных числа А и В. Из этих чисел составили два четырехзначных...

Найти числа А и В, если известно, что первое четырехзначное число нацело делится на 99, а второе – на 49
Помогите плиз))) решить 3 способами стчетчик предпроверка условия ...

Найти число которое делится на 1 - 18
Нужно найти число,что состоит из 0 1 2 3 4 5 6 7 8 9 , которие не повторяются и...

Найти наибольшее число, которое делится на 10
Помогите решить задачку. По каналу связи передается последовательность...

Разработать программу, проверяющую, делится ли целое четырехзначное число N нацело на сумму цифр, составляющих это число
Очень нужна помощь,если кому не лень уделить пару минут на решение,огромная...

3
Sergio Leone
2462 / 1107 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
12.04.2015, 21:56 #2
наивные авторы задачи предполагали, что решение будет такое:
Pascal
1
2
3
i:=n+1;
while (i mod 19)<>0 do Inc(i);
writeLn('Нужное число = ',i);
хотя, конечно, намного лучше обойтись вообще без циклов:
так:
Pascal
1
  WriteLn('Нужное число =', (trunc(N div 19)+1)*19);
или даже так:
Pascal
1
  WriteLn('Нужное число 2 =', N + (19-N mod 19));
правда, последние два варианта решения не очень хорошо будут работать с отрицательными n, но это можно поправить при необходимости
0
Новичок
Модератор
1480 / 946 / 457
Регистрация: 17.07.2012
Сообщений: 4,888
Завершенные тесты: 3
12.04.2015, 23:04 #3
Цитата Сообщение от Sergio Leone Посмотреть сообщение
(trunc(N div 19)+1)*19);
Trunc же незачем, (n div 19+1)*19.

Добавлено через 10 минут
Найди число-1
Найди число-1

Добавлено через 36 секунд
Кросспост...
1
ildwine
12.04.2015, 23:10     Найти минимальное число, большее n, которое нацело делится на 19
  #4
 Комментарий модератора 
MrXayc, не нужно плодить дубли тем... Перечитайте правила форума... п.п. 5.5. "Запрещено размещать тему в нескольких подразделах одного раздела одновременно (кросспостинг), а также дублировать тему в одном разделе."
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2015, 23:10
Привет! Вот еще темы с ответами:

Создать программу, которая находит наименьшее число - большее n, и делится на k
Данны два натуральных числа n и k. Создать программу, которая находит...

Для заданного натурального A найти минимальное натуральное N такое, что N в степени N делится на A
Прошу помогите с заданием! Для заданного натурального A найти минимальное...

Элементы файла, которые при делении нацело на собственный индекс дают значение большее 2, возвести в квадрат
Ввести файл F . Элементы файла, которые при делении нацело на собственный...

определить как каждое из трех введенных чисел делится на 5-нацело или с каким остатком
Написать программу которая определяет как каждое из трех введенных чисел...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru