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