ՄՈԼՈՐԱԿ "ՕԼԻՄՊԻԱԿԱ ԻՆՖՈՐՄԱՏԻԿԱ" (PLANET)

oinf-club

Дата: Շաբաթ, 18.12.2010, 15:15 | Сообщение # 1

Կայքի հիմնադիր

Группа: Ադմինիստրատորներ

Сообщений: 19

Репутация: 10

Статус: Օֆլայն

ԽՆԴՐԻ ՎԵՐԼՈւԾՈւԹՅՈւՆԸ

Խնդրում նկարագրված տեսակների համարակալման մեթոդը թույլ է տալիս ենթատեսակի համարով հեշտությամբ գտնել այն տեսակի համարը, որից առաջացել է այդ ենթատեսակը: Դրա համար բավարար է ենթատեսակի համարը ամբողջով բաժանել երկուսի: Այսպես պետք է շարժվել էվոլյուցիայի ծառով այնքան ժամանակ, մինչ չգտնենք տեսակ-նախնի տրված երկու ենթատեսակների համար:

Tamara

Дата: Շաբաթ, 18.12.2010, 15:18 | Сообщение # 2

Շարքային

Группа: Пользователи

Сообщений: 5

Репутация: 10

Статус: Օֆլայն

Ներկայացնում եմ իմ լուծումը Pascal լեզվով

Code

VAR N,A,B:LONGINT;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET (INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE (OUTPUT);
      READLN(N,A,B);
      WHILE A<>B DO
      IF A>B THEN A:=A DIV 2 ELSE B:=B DIV 2;
      WRITELN(A)
END.

TMNT

Дата: Շաբաթ, 18.12.2010, 15:19 | Сообщение # 3

Շարքային

Группа: Модераторы

Сообщений: 14

Репутация: 10

Статус: Օֆլայն

Իմ լուծումը C++ լեզվով

Code

#include <fstream.h>
void main()
{
  ifstream fin("input.txt");
  ofstream fout("output.txt");
  long n,a,b,k;
  fin >> n;
  fin >> a;
  fin >> b;
  while (a!=b)
  {
   if (a>b) a/=2;
   else b/=2;
   k=a;
  }
  fout << k << endl;
}

Arman

Дата: Շաբաթ, 18.12.2010, 18:56 | Сообщение # 4

Շարքային

Группа: Пользователи

Сообщений: 3

Репутация: 10

Статус: Օֆլայն

Խնդրի լուծումը Visual Basic-ով:

Code

Private Sub Form_Load()
a = FreeFile
Open "Input.txt" For Input As #a
Input #a, s, b, c: Close #a
While b <> c
If b > c Then b = Int(b / 2) Else c = Int(c / 2)
Wend
Open "Output.txt" For Output As #a
Print #a, b: Close #a
End Sub

Сообщение отредактировал Arman - Շաբաթ, 18.12.2010, 18:58