Составить программу поиска таких трёхзначных чисел на которые нужно умножить число 777 чтобы получить шестизначное число

@Farink · Регистрация: 12.05.2010

Студворк — интернет-сервис помощи студентам

В общем не доходит до меня тупого, безграмотного, парня, которого не берут в армию, как сделать эту задачу с помощью циклического алгоритма: ( Составить программу поиска таких трёхзначных чисел на которые нужно умножить число 777 чтобы получить шестизначное число, записываемые одними единицами, двойками, тройками и т. д.) Сам я ломал голову над этим часа 3, но без успешно, смог сделать только в линейном виде, напишу, чтобы вы не думали, что я сам не пытался, а решил просто на других свою проблему скинуть.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Program zad5;
uses crt;
Var a,b,c,d,e,f,g,h,k,z,m,n,o,p,r,s,t,u,x: real;
begin
clrscr;
z:=777;
a:=111111;
b:=222222;
c:=333333;
d:=444444;
e:=555555;
f:=666666;
g:=777777;
h:=888888;
k:=999999;
m:=a/z;
writeln('chtobi poluchit 111111,chislo 777 nujno unnojit na',m:2:2);
n:=b/z;
writeln('chtobi poluchit 222222,chislo 777 nujno unnojit na',n:2:2);
o:=c/z;
writeln('chtobi poluchit 333333,chislo 777 nujno unnojit na',o:2:2);
p:=d/z;
writeln('chtobi poluchit 444444,chislo 777 nujno unnojit na',p:2:2);
r:=e/z;
writeln('chtobi poluchit 555555,chislo 777 nujno unnojit na',r:2:2);
s:=f/z;
writeln('chtobi poluchit 666666,chislo 777 nujno unnojit na',s:2:2);
t:=g/z;
writeln('chtobi poluchit 777777,chislo 777 nujno unnojit na',t:2:2);
u:=h/z;
writeln('chtobi poluchit 888888,chislo 777 nujno unnojit na',u:2:2);
x:=k/z;
writeln('chtobi poluchit 999999,chislo 777 nujno unnojit na',x:2:2);
readln;
end.

@TAVulator · 12.05.2010, 20:20

Сообщение от Farink

смог сделать только в линейном виде, напишу, чтобы вы не думали, что я сам не пытался, а решил просто на других свою проблему скинуть.

+1

короче смотри, рассмотрим алгоритм "в лоб":
фактически нам нужно перебрать все трехзначные числа, т.е. от 100 до 999:
берем соответствующий цикл:

Pascal
1
For i:=100 to 999 do

Далее нам нужно каждое число умножить на 777 и сравнить с каждым и чисел: 111111 222222 333333 и т.д.
умножаем так:

Pascal
1
a:=i*777;

проверять будем снова циклом, только предварительно подумаем как нам получить эти шестизначные числа.
А просто:
допустим как из 1 получить 111111:
((1*10+1)*10+1)... и т.д. или же проще и воспользуемся сразу переменной:

Pascal
1
b:=(100000*k)+(10000*k)+(1000*k)+(100*k)+(10*k)+k

ну а сам цикл будет от 1 до 9:

Pascal
1
for k:=1 to 9 do

остается только лишь сравнить полученное от произведение на 777 число с числом, полученным в нашем втором цикле и вывести изначальные трехзначные числа:

Pascal
1
if a=b then writeln(i);

Ну а теперь это все соединим:

Pascal
1
2
3
4
5
6
7
8
9
For i:=100 to 999 do
 Begin
  a:=i*777;
  For k:=1 to 9 do
   Begin
    b:=(100000*k)+(10000*k)+(1000*k)+(100*k)+(10*k)+k;
    if a=b then writeln(i);
   End;
 End;

Ну и приведем в нормальный вид с объявлением переменных:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
 a,b,i,k: integer;
Begin
 For i:=100 to 999 do
  Begin
   a:=i*777;
   For k:=1 to 9 do
    Begin
     b:=(100000*k)+(10000*k)+(1000*k)+(100*k)+(10*k)+k;
     if a=b then writeln(i);
    End;
  End;
End.

PS: писал прям на форуме, возможно где-то опечатался.

@Катенька Алекс7 · 11.02.2014, 17:07

А как эту задачу решить через mod и div ??

@Puporev · 11.02.2014, 17:29

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var
 a,b,i,k: integer;
Begin
 For i:=100 to 999 do
  Begin
   a:=i*777;
   if (a div 100000=a div 10000 mod 10)
   and(a div 100000=a div 1000 mod 10)
   and(a div 100000=a div 100 mod 10)
   and(a div 100000=a div 10 mod 10)
   and(a div 100000=a mod 10) then writeln(i,'*777=',a);
  End;
End.

@Катенька Алекс7 · 12.02.2014, 04:15

Спасибо, большое. У меня получилось точно так же)) С каждым днём всё больше и больше понимаю Паскаль :-)

@кот Бегемот · 12.02.2014, 08:41

Сообщение от TAVulator

+1

короче смотри, рассмотрим алгоритм "в лоб":
фактически нам нужно перебрать все трехзначные числа, т.е. от 100 до 999:
берем соответствующий цикл:

Pascal
1
For i:=100 to 999 do

Далее нам нужно каждое число умножить на 777 и сравнить с каждым и чисел: 111111 222222 333333 и т.д.
умножаем так:

Pascal
1
a:=i*777;

проверять будем снова циклом, только предварительно подумаем как нам получить эти шестизначные числа.
А просто:
допустим как из 1 получить 111111:
((1*10+1)*10+1)... и т.д. или же проще и воспользуемся сразу переменной:

Pascal
1
b:=(100000*k)+(10000*k)+(1000*k)+(100*k)+(10*k)+k

ну а сам цикл будет от 1 до 9:

Pascal
1
for k:=1 to 9 do

остается только лишь сравнить полученное от произведение на 777 число с числом, полученным в нашем втором цикле и вывести изначальные трехзначные числа:

Pascal
1
if a=b then writeln(i);

Ну а теперь это все соединим:

Pascal
1
2
3
4
5
6
7
8
9
For i:=100 to 999 do
 Begin
  a:=i*777;
  For k:=1 to 9 do
   Begin
    b:=(100000*k)+(10000*k)+(1000*k)+(100*k)+(10*k)+k;
    if a=b then writeln(i);
   End;
 End;

Ну и приведем в нормальный вид с объявлением переменных:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
 a,b,i,k: integer;
Begin
 For i:=100 to 999 do
  Begin
   a:=i*777;
   For k:=1 to 9 do
    Begin
     b:=(100000*k)+(10000*k)+(1000*k)+(100*k)+(10*k)+k;
     if a=b then writeln(i);
    End;
  End;
End.

PS: писал прям на форуме, возможно где-то опечатался.

Очень уважаю чужой бессмысленный и бесполезный труд. Из курса школы известно, что для того, чтобы получить шестизначное число записанное как два трёхзначных, трёхзначное надо умножить на 7*11*13. Поскольку 777= 7*111, то осталось его умножить на 11 и 13, чтобы получить 111111, а уж из него легко получается 222222, 333333 и т.д

В общем программа будет в 2 строки:

Pascal
1
2
3
4
5
6
var
i:integer;
begin
for i:=1 to 9 do
if 11*13*i<1000 then writeln(11*13*i);
end.

@TAVulator · 12.02.2014, 15:59

Не по теме:

Ничего себе вы... теме уже почти 4 года )

@кот Бегемот · 12.02.2014, 19:18

Сообщение от TAVulator

Не по теме:

Ничего себе вы... теме уже почти 4 года )

Не по теме:

Я не смотрел, когда создана тема, последние ответы были вчера и сегодня.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Катенька Алекс7 0 / 0 / 0 Регистрация: 28.01.2014 Сообщений: 19
	11.02.2014, 17:07
	А как эту задачу решить через mod и div ?? 0

@Катенька Алекс7 0 / 0 / 0 Регистрация: 28.01.2014 Сообщений: 19
	12.02.2014, 04:15
	Спасибо, большое. У меня получилось точно так же)) С каждым днём всё больше и больше понимаю Паскаль :-) 0

@TAVulator
	12.02.2014, 15:59
	Не по теме: Ничего себе вы... теме уже почти 4 года ) 0

Составить программу поиска таких трёхзначных чисел на которые нужно умножить число 777 чтобы получить шестизначное число

Решение