Форум «Всё о Паскале» > Олимпиадные задачи (с окончившихся олимпиад)

Помощь - Поиск - Пользователи - Календарь

Полная версия: Олимпиадные задачи (с окончившихся олимпиад)

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Страницы: 1, 2

vasia_borovec

13.11.2011 20:31

У мене на олімпіаді ( школьной ) була похожа задача до першої різниця в тому що серфя з 111111 до 999999 !!
Ось її розв*язок


var
 a,b,c,d,s,f,v : integer;
begin
v:=0 ;
 for a:=1 to 9  do
                for b:=1 to 9 do
                               for c:=1 to 9 do
                                              for d:=1 to 9 do
                                                             for s:=1 to 9 do
                                                                            for f:=1 to 9 do

                                                                            if (a+b+c=d+s+f) and (d+f+s=a+b+c)  then v:=v+1 ;

                                                                                    WriteLn (v) ;
                                                                                    readln ;
                                                                            end.

Krjuger

13.11.2011 21:01

if (a+b+c=d+s+f) and (d+f+s=a+b+c)  then v:=v+1 ;

Вопрос зачем and (d+f+s=a+b+c) разве от перемены мест слагаемых результат суммы меняется??????

В этом разделе только условия и проверешнные решения!!!
Есть вопрос создайте тему.

vasia_borovec

13.11.2011 21:11

and (d+f+s=a+b+c) он не нужен ето просто моя ошибка

APAL

22.05.2013 15:12

Цитата

Заменить буквы цифрами так, чтобы соотношение оказалось верным:
ХРУСТ*ГРОХОТ=РРРРРРРРРРР

21649*513239=11111111111

Немного "размял" мозги:

Решение (Показать/Скрыть)

{ ХРУСТ*ГРОХОТ=РРРРРРРРРРР  - RUS
  ABCDE*FBGAGE=BBBBBBBBBBB  - LAT
  Must by: 21649*513239=11111111111 }

{ stepen a^b }
Function sq(a,b : Longint) : Longint;
Begin
  If b<>0 then sq:=Round(exp(b*ln(a))) else sq:=1;
end;

{GetNumFromPos}
Function GNFP (a : Longint; n : byte) : Byte;
Var iii  : Byte;
    aaa  : Longint;
Begin
  aaa:=a;
  If n>1 then
    For iii:=1 to n-1 do aaa:=aaa div 10;
  GNFP:=aaa mod 10;
end;

{ aa*bb=xx1*1000000000+xx2 }
Procedure mulBigNum(aa,bb : Longint; var xx1,xx2 : Longint);
Var k,i,ii,j,jj  : Byte;
    xx           : array [1..20] of Byte;
    St           : String;

  Procedure Perenos;
  Var p : Byte;
  Begin
    For p:=1 to 19 do
      If xx[p]>9 then
      Begin
        Inc(xx[p+1],xx[p] div 10);
        xx[p]:=xx[p] mod 10;
      end;
  end;

Begin
  xx1:=0; xx2:=0;
  For i:=1 to 20 do xx[i]:=0;
  Str(aa,St); ii:=Length(St);
  Str(bb,St); jj:=Length(St);

  For i:=1 to ii do
  Begin
    k:=i;
    For j:=1 to jj do
    Begin
      Inc(xx[k],GNFP(aa,i)*GNFP(bb,j));
      Perenos;
      Inc(k);
    end;
  end;

  For i:=1 to 9 do
  Begin
    Inc(xx2,xx[i]*sq(10,i-1));
    Inc(xx1,xx[i+9]*sq(10,i-1));
  end;
end;

Var
  A,B,C,D,E,F,G : byte;
  x1,x2         : LongInt;

Begin
  For A:=0 to 9 do
   For B:=0 to 9 do
    For C:=0 to 9 do
     For D:=0 to 9 do
      For E:=0 to 9 do
       For F:=0 to 9 do
        For G:=0 to 9 do
        Begin       {ABCDE*FBGAGE=BBBBBBBBBBB}
          mulBigNum(A*10000+B*1000+C*100+D*10+E,
                    F*100000+B*10000+G*1000+A*100+G*10+E,
                    x1,x2);
          Writeln(A,B,C,D,E,' * ',F,B,G,A,G,E,' = ',x1,x2);
          If (x1=B*10+B) and (x2=B*100000000+
                                 B*10000000+
                                 B*1000000+
                                 B*100000+
                                 B*10000+
                                 B*1000+
                                 B*100+
                                 B*10+B) and
                                 ((x1<>0) and (x2<>0))then Halt;
        end;
        Writeln('No match found!');
end.

Turbo Pascal 7.0 под MS Windows 7 нашел решение примерно через 2 мин. 10 сек.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.