Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 13.12.2014
Сообщений: 2
1

Найти все числа, которые при делении на a дают остаток b, а при делении на b дают в остатке a

13.12.2014, 17:58. Просмотров 1470. Ответов 1
Метки нет (Все метки)

Ввести два натуральных числа a и b, на промежутке от 1 до N найти все числа, которые при делении на a дают остаток b, а при делении на b дают в остатке a.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2014, 17:58
Ответы с готовыми решениями:

Найти все трёхзначные числа, которые при делении на 2 дают остаток 1
1. решила 2. Найти все трёхзначные числа, которые при делении на 2 дают остаток 1, при делении на...

Найти трехзначные числа, которые при делении на 47 дают в остатке 43
Составить программу поиска трехзначных чисел, которые при делении на 47 дают в остатке 43, а при...

Найти и напечатать числа, которые при делении на 7 дают остаток 1, 2 или 5
Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают...

Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5
Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают...

1
2505 / 1126 / 582
Регистрация: 07.06.2014
Сообщений: 3,278
13.12.2014, 18:06 2
Лучший ответ Сообщение было отмечено fanat30rus как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
var a,b,n,i : integer;
begin
  WriteLn('Vvedite a,b,n'); 
  ReadLn(a,b,n);
  for i:=1 to N do
    if (i mod a = b) and (i mod b = a) then Write(i,' ');
  WriteLn;
  Readln
end.
Впрочем, думаю, что лучше такая "программа":
Pascal
1
2
3
4
5
6
7
var a,b,n : integer;
begin
  WriteLn('Vvedite a,b,n'); 
  ReadLn(a,b,n);
  WriteLn('Таких чисел НЕТ!');
  Readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2014, 18:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вывести на экран натуральные числа от 1 до 100, которые при делении на 6 дают в остатке 4, и их количество
70. Вывести на экран натуральные числа от 1 до 100, которые при делении на 6 дают в остатке 4, и их...

Найти те члены q1, последовательности q1,q2,..qn, которые при делении на 7 дают остаток 1, 2 или 5
даны натуральные числа n,q1,q2,..qn. Найти те члены q1, последовательности q1,q2,..qn, которые при...

Найти и напечатать те из чисел, которые при делении на 7 дают остаток 1, 2 или 5
Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают...

Найти и напечатать те из чисел, которые при делении на 5 дают остаток 1, 2 или 3
Помогите решить задачку!!!:impossible:

Определить члены последовательности, которые при делении на 5 дают в остатке 2
Последовательность задана формулой общего члена Xn=5n2 - 4n -1. Определить (из первых двадцати)...

Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4
1. Создать файл F из целых чисел. Переписать в файл G те элементы файла F, которые при делении...


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

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

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