Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/51: Рейтинг темы: голосов - 51, средняя оценка - 4.57
1Rik1
0 / 0 / 0
Регистрация: 09.09.2014
Сообщений: 20
1

Найти все пятизначные числа, которые при делении на A дают в остатке B, а при делении на C дают в остатке D

10.10.2014, 17:25. Просмотров 10252. Ответов 7
Метки нет (Все метки)

Напишите программу, которая вводит четыре натуральных числа (a, b, c и d) и находит все пятизначные числа, которые при делении на a дают в остатке b , а при делении на c дают в остатке d .

Входные данные
Первая входная строка содержит два натуральных числа, разделённые пробелами: a и b. Вторая строка содержит натуральные числа c и d, также разделённые пробелом. Гарантируется, что 0 ≤ b ≤ a и 0 ≤ d ≤ c.

Выходные данные
Программа должна вывести в одну строчку через пробел все пятизначные натуральные числа, которые при делении на a дают в остатке b, а при делении на c дают в остатке d . Если таких чисел нет, программа должна вывести число -1.


Примеры
входные данные
133 125
134 111
выходные данные
19809 37631 55453 73275 91097
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2014, 17:25
Ответы с готовыми решениями:

Определить количество чисел, которые при делении на 7 дают в остатке 3
Даны натуральные числа a1, a2, a3, a4. а) верно ли, что одно число положительно б) Определить...

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

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

Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3.
1 задача Ввести двумерный массив A 3×4 . Определить произведение элементов, которые при делении...

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

7
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
10.10.2014, 22:38 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a,b,c,d:integer;
    k:integer;
    i:longint;
begin
  assign(input,'input.txt');reset(input);
  assign(output,'output.txt');rewrite(output);
  readln(a,b);
  readln(c,d);
  k:=-1;
  i:=10000;
  while i<100000 do
     begin
        if (i mod a = b) and (i mod c = d)
         then
          begin
           write(i,' ');
           inc(k)
          end;
        inc(i)
     end;
  if k=-1 then write(k)
end.
0
Joy
Эксперт Pascal/Delphi
2203 / 1222 / 1447
Регистрация: 29.08.2014
Сообщений: 4,466
11.10.2014, 08:17 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  a,b,c,d:integer;
  i,j:longint;
begin
  repeat
    readln(a,b);
    readln(c,d);
    j:=10000;
    if (a=0) or (c=0) then writeln('a,c must be greater than zero!');
  until (a>0) and (c>0);
  for i:=10000 to 100000 do
    if (i mod a=b) and (i mod c=d) then write(i,'  ') else inc(j);
  if j>100000 then writeln('-1');
  readln;
end.
0
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
11.10.2014, 08:44 4
Цитата Сообщение от Joy Посмотреть сообщение
Pascal
1
if (a=0) or (c=0) then writeln('a,c must be greater than zero!');
по условию чИсла натуральные
0
11.10.2014, 08:44
Joy
Эксперт Pascal/Delphi
2203 / 1222 / 1447
Регистрация: 29.08.2014
Сообщений: 4,466
11.10.2014, 08:54 5
по условию 0 ≤ b ≤ a и 0 ≤ d ≤ c допускается равенство 0! и 0 входит в расширенное множество натуральных чисел
0
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
11.10.2014, 09:06 6
Цитата Сообщение от Joy Посмотреть сообщение
по условию 0 ≤ b ≤ a и 0 ≤ d ≤ c допускается равенство 0! и 0 входит в расширенное множество натуральных чисел
уговорили)
у Вас цикл должен быть до 99999, иначе возможен вывод шестизначного числа
0
Joy
Эксперт Pascal/Delphi
2203 / 1222 / 1447
Регистрация: 29.08.2014
Сообщений: 4,466
11.10.2014, 09:08 7
Согласен, не подумал
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4620 / 2905 / 2255
Регистрация: 22.11.2013
Сообщений: 8,110
11.10.2014, 11:57 8
В сухом остатке, с выводом -1 и в случае неправильных входных данных:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  rb=10000; re=rb*10-1;
  s: array [Boolean] of String[1]=('',' ');
var
  a, b, c, d, k: Integer;
  i: Longint;
begin
  Assign(input,'input.txt'); Reset(input);
  Assign(output,'output.txt'); Rewrite(output);
  ReadLn(a,b); ReadLn(c,d); {k:=0;}
  if (a>0) and (b>=0) and (c>0) and (d>=0) and (b<a) and (d<c) then begin
    for i:=rb to re do
      if (i mod a=b) and (i mod c=d) then begin
        Write(s[k>0],i); Inc(k);
      end;
  end;
  if k=0 then Write(-1);
  {WriteLn;}
  Close(input); Close(output);
end.
0
11.10.2014, 11:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2014, 11:57

Найти те члены данной последовательности , которые при делении на 11 дают остаток 5 или 7
1)Дано Действительно число Х вычислить: 2/(x-1)+4(x-3)+6(x-5).....+50/(x-49) 2)Даны целые числа...

Найти сумму и количество тех элементов массива, которые при делении на 7 дают остаток 1, 2 или 5
помогите пожалуйста не могу решить 6. Даны массивы А(30), В(20), С(15) целых чисел. Найти сумму и...

В массиве определить количество элементов, которые при делении на 3 дают остаток 2
Ввести одномерный массив A из 11 элементов. Определить в нём количество тех элементов, которые при...


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

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

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