Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/16: Рейтинг темы: голосов - 16, средняя оценка - 4.63
syrga
5 / 5 / 4
Регистрация: 04.12.2010
Сообщений: 65
1

Разгадать ребус

26.09.2011, 22:29. Просмотров 2863. Ответов 1
Метки нет (Все метки)

Код
ПРИМЕР
 РИМЕР
  ИМЕР
   МЕР
    ЕР
     Р
------
ЗАДАЧА
851745
 51745
  1745
   745
    45
     5
------
906030
а вот и решение
C
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
36
37
38
39
40
41
42
43
#include <conio.h>
#include <iostream.h>
#include <stdio.h>
void main() {
 long i;
 long n;
 long a[10];
 long b[10];
 int c[10];
 int j;
 for (i=100000; i<999999; i++)
  {
   n = (i%1000000)+(i%100000)+(i%10000)+(i%1000)+(i%100)+(i%10);
   long oldn = n;
   b[6]=0;
   n = i;
   for(j=0; j<10; j++)
    {
   b[j] = n % 10;
   n =  n/10;
   c[j] = 0;
    }
    n = oldn;
   for(j=0; j<9; j++)
    {
   a[j] = n % 10;
   n =  n/10;
    }
   c[b[0]]++;
   c[b[1]]++;
   c[b[2]]++;
   c[b[3]]++;
   c[b[5]]++;
   c[a[0]]++;
   c[a[1]]++;
   c[a[3]]++;
   c[a[5]]++;
   if ((a[0]==a[2])&&(a[0]==a[4])&&(a[6]==0)&&(b[0]==b[4])&&(c[0]<2)&&(c[1]<2)&&(c[2]<2)&&(c[3]<2)&&(c[4]<2)&&(c[5]<2)&&(c[6]<2)&&(c[7]<2)&&(c[8]<2)&&(c[9]<2))
    {
     cout<<i<<" "<<oldn<<endl;
    }
  }
}
напишите пожалуйста на паскале
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2011, 22:29
Ответы с готовыми решениями:

Ребус: 3+2=5
3+2=5 ребус в паскале

Ребус в Pascal
Такая вот задачка HELP + THE = YOUNG. Нужно решить в паскале. Буквы это цифры....

Ребус.Задача
С помощью множеств решить ребус Один+один+один+один+один=5. Ответ запишите в...

Математический ребус
Математический ребус. Расставьте в кружках числа от 1 до 8 так, чтобы сумма...

Ребус А+ББ+А=CВС
Здравствуйте, очень нужна помощь с написанием программки Расшифруйте...

1
Puporev
Модератор
54732 / 42133 / 29091
Регистрация: 18.05.2008
Сообщений: 99,455
27.09.2011, 08:27 2
Лучший ответ Сообщение было отмечено syrga как решение

Решение

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
36
37
uses crt;
var p,r,i,m,e,z,a,d,c,k:longint;
begin
clrscr;
k:=0;
for p:=1 to 9 do
for r:=1 to 9 do
for i:=1 to 9 do
for m:=1 to 9 do
for e:=1 to 9 do
for z:=1 to 9 do
for a:=0 to 9 do
for d:=0 to 9 do
for c:=0 to 9 do
 if(p<>r)and(p<>i)and(p<>m)and(p<>e)and(p<>z)and(p<>a)and(p<>d)and(p<>c)
and(r<>i)and(r<>m)and(r<>e)and(r<>z)and(r<>a)and(r<>d)and(r<>c)
and(i<>m)and(i<>e)and(i<>z)and(i<>a)and(i<>d)and(i<>c)
and(m<>e)and(m<>z)and(m<>a)and(m<>d)and(m<>c)
and(e<>z)and(e<>a)and(e<>d)and(e<>c)
and(z<>a)and(z<>d)and(z<>c)
and(a<>d)and(a<>c)
and(d<>c)
and(100000*p+20006*r+3000*i+400*m+50*e=100000*z+10101*a+1000*d+10*c) then
 begin
  k:=1;
  writeln(p,r,i,m,e,r);
  writeln(' ',r,i,m,e,r);
  writeln('  ',i,m,e,r);
  writeln('   ',m,e,r);
  writeln('    ',e,r);
  writeln('     ',r);
  writeln('------');
  writeln(z,a,d,a,c,a);
 end;
if k=0 then write('Решений нет');
readln
end.
Считает долго, у меня секунд 10-12.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2011, 08:27

Решить ребус
Решить ребус. Причем каждой букве соответствует определенное число! VOLVO ...

Ршить ребус
Задача 6. решить ребус МУХА + МУХА

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


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

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

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