Вівторок, 19.03.2024, 09:35
Головна Реєстрація Вхід
Вітаю Вас, Гість · RSS
Меню сайту
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Форма входу
 Кращі розв'язки
Задача A-Гра
Березін Дмитро
Var fi,fo:text;
    s:ansistring;
    k:longint;
    i:longint;
Begin
Assign(fi,'a.txt');Reset(fi);
Assign(fo,'a.out');Rewrite(fo);
Readln(fi,k);
for i:=1 to k do Begin
Readln(fi,s); if (byte(s[length(s)])-48) mod 2=1 then Write(fo,2)
                                                 else Write(fo,1);
end;
Close(fo);
end.

Задача B-Кількість трикутників
Миколюк Руслан
var n:int64;
begin
readln(n);
writeln(n*(n+1)*(2*n+1) div 6);
end.

Задача C-Коефіцієнт
Шумейко Максим
#include<iostream>
using namespace std;
int main ()
{
    long long x;
    cin>>x;
   cout<<(x+1)*(x+2)/2;
}

Задача D-Кількість прогресій
Сорока Дмитро
var s,n,g:int64;
    i:longint;
begin
 read(n);g:=trunc(sqrt(n));
 for i:=1 to g do s:=s+n div i;
 write(s*2-g*g);
end.

Задача E-Математичні мандри
Савчук Владислав
Var a:array[0..21,0..21] of int64;
    i,j:longint; n:int64;
Begin
     Readln(n);
     a[0,2]:=1; a[2,0]:=1;
     For i:=1 to 20 do begin
      For j:=1 to 20 do Begin a[i,j]:=a[i-1,j]+a[i,j-1];
       if a[i,j]=n then Begin WRiteln(i,' ',j); halt end;
      end;
     end;
End.

Copyright MyCorp © 2024
Пошук
Календар
«  Березень 2024  »
ПнВтСрЧтПтСбНд
    123
45678910
11121314151617
18192021222324
25262728293031
Архів записів
Друзі сайту
Обдаровані діти

Хмельницькі олімпіади

НМЦ ІКТ і ДН

Портал ХОІППО