Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
MrXayc
1 / 1 / 0
Регистрация: 05.04.2015
Сообщений: 32
#1

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

19.04.2015, 20:37. Просмотров 782. Ответов 7
Метки нет (Все метки)

Дано число n. Необходимо найти минимальное число, большее n, которое нацело делится на 19. Напишите с циклом while
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2015, 20:37
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти минимальное число, большее n, которое нацело делится на 19 (PascalABC.NET):

Найти минимальное число большее 300, которое нацело делится на 19 - PascalABC.NET
Помогите, пожалуйста, решить! Очень надо, но не знаю как их решать! 3. Составить программу, которая находит минимальное число большее...

Напечатать минимальное число, большее 200, которое нацело делится на 17 - PascalABC.NET
Напечатать минимальное число, больше 200, которое нацело делится на 17. Желательно с помощью While

Найти минимальное число, большее n, которое нацело делится на 19 - Pascal
Дано число n. Необходимо найти минимальное число, большее n, которое нацело делится на 19. Требуется вывести искомое число.| Используйте...

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

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

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

7
Nickolay0512
57 / 39 / 19
Регистрация: 26.09.2013
Сообщений: 317
Записей в блоге: 1
20.04.2015, 06:04 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
MrXayc,
Pascal
1
2
3
4
5
6
7
8
9
var n,i:integer;
begin
     writeln('Введите n: ');
     readln(n);
     inc(n);
     while (n mod 19<>0) do
           inc(n);
     writeln('Минимальное число, большее n, которое нацело делится на 19: ',n);
end.
0
Sergio Leone
2461 / 1106 / 403
Регистрация: 07.06.2014
Сообщений: 3,259
20.04.2015, 08:29 #3
решение через цикл ожидаемое, но совсем не оптимальное.

намного проще сделать это за одно вычисление.
Из этой темы: Найти минимальное число, большее n, которое нацело делится на 19
Цитата Сообщение от Новичок Посмотреть сообщение
Pascal
1
2
3
  writeln('Введите n: ');
  readln(n);
  writeln('Минимальное число, большее n, которое нацело делится на 19: ',(n div 19+1)*19);
правда, если допускаются отрицательные значения n, то программу нужно будет подкорректировать
0
Nickolay0512
57 / 39 / 19
Регистрация: 26.09.2013
Сообщений: 317
Записей в блоге: 1
20.04.2015, 08:30 #4
Sergio Leone, В задании написано с циклов while, потому и выбрал такой путь решения)
1
Sergio Leone
2461 / 1106 / 403
Регистрация: 07.06.2014
Сообщений: 3,259
20.04.2015, 08:35 #5
Цитата Сообщение от Nickolay0512 Посмотреть сообщение
В задании написано с циклов while, потому и выбрал такой путь решения)
извините меня за невнимательность. Вы абсолютно правы!!!
0
MrXayc
1 / 1 / 0
Регистрация: 05.04.2015
Сообщений: 32
26.04.2015, 12:19  [ТС] #6
Дано число n. Необходимо найти минимальное число, большее n, которое нацело делится на 19. Напишите с Repeat
0
Sergio Leone
2461 / 1106 / 403
Регистрация: 07.06.2014
Сообщений: 3,259
27.04.2015, 08:06 #7
Цитата Сообщение от MrXayc Посмотреть сообщение
Напишите с Repeat
что, учить Паскаль совсем не хочешь?

ладно, тут делов на 30 секунд. Держи:
Pascal
1
2
3
4
5
6
7
8
9
var n,i:integer;
begin
     writeln('Введите n: ');
     readln(n);
     repeat
       inc(n);
     until (n mod 19=0);
     writeln('Минимальное число, большее n, которое нацело делится на 19: ',n);
end.
0
Ваю
18 / 18 / 1
Регистрация: 21.04.2015
Сообщений: 541
27.04.2015, 16:13 #8
Я вообще не понимаю кто придумал такие задания и зачем в них цикл, они без циклов в 1 строчку делаются -__-

Pascal
1
2
3
4
5
6
7
8
9
x := 19 * Ceil(n / 19); If n div 19 = 0 then Inc(x, 19);
 
//или
 
x := 19 * (Floor(n / 19) + 1);
 
//или
 
x := 19 * ((n mod 19) + 1); //найти x > n, скобки специально напихал, чтоб выделить порядок действий, только кому я рассказываю, ничего учить он не будет
Следующее задание будет с циклом For ... downto? For ... to первым учат, но его что-то не было
0
27.04.2015, 16:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2015, 16:13
Привет! Вот еще темы с ответами:

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

Найти наибольшее число, которое делится на 10 - Pascal
Помогите решить задачку. По каналу связи передается последовательность положительных целых чисел, все числа не превышают 1000, их...

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

Дано натуральное N (N<1000). Найти минимальное число А которое - PascalABC.NET
Дано натуральное N (N&lt;1000). Найти минимальное число А, которое нацело делиться на N, и в десятичной записи которого используются лишь 0 и...


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

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

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