Задача 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.
