Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
MrXayc
1 / 1 / 0
Регистрация: 05.04.2015
Сообщений: 32
#1

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

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

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

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

Напечатать минимальное число, большее 200, которое нацело делится на 17
Напечатать минимальное число, больше 200, которое нацело делится на 17....

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

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

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

7
Nickolay0512
57 / 39 / 41
Регистрация: 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
2467 / 1112 / 579
Регистрация: 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 / 41
Регистрация: 26.09.2013
Сообщений: 317
Записей в блоге: 1
20.04.2015, 08:30 #4
Sergio Leone, В задании написано с циклов while, потому и выбрал такой путь решения)
1
Sergio Leone
2467 / 1112 / 579
Регистрация: 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
2467 / 1112 / 579
Регистрация: 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
Ваю
19 / 19 / 9
Регистрация: 21.04.2015
Сообщений: 547
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
Помогите плиз))) решить 3 способами стчетчик предпроверка условия ...

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

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


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

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

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