#include <iostream>
int main()
{
int64_t n;
// __int64 n; для visual studio
std::cin >> n;
std::cout << n*n << std::endl;
return 0;
}
/**
Покажем, что количество равных треугольников равно n^2.
Обозначим ответ к задаче как f(n).
При n = 1 имеем f(n) = 1, так как треугольник не разрезается.
Переходим от n-1 к n.
При переходе добавляется два нижних ряд треугольников.
В одном n треугольников и они ориентированы так же, как и исходный треугольник.
В другом -- n-1 треугольник, и они зеркально симметричны исходному треугольнику.
Итого, f(n) = f(n-1) + n + n-1 = f(n-1) + 2n-1.
Теперь заметим, что n^2 при n=1 равно 1^2 = 1;
n^2 = (n-1 + 1)^2 = (n-1)^2 + 2(n-1) + 1 = (n-1)^2 + 2n-1.
То есть f(n) = n^2.
Итого, искомое количество треугольников: n^2
*/
Для любого из 64 претендентов достаточно 6 бит
<span>значит было отобрано 18 участников</span>
1) Program gsdn;
Var k: integer;
z,n,i,l,s: real;
Begin
k:=0;
l:=5.6;
s:=0;
Repeat
k:=k+1;
n:=0.3;
i:=l+(n*k);
S:=i+s;
Writeln(i);
Until i=9.8;
Writeln(s);
<span>end.
2) </span>Program afaf;
Var k,h: integer;
z,n,i,l,s,y: real;
begin
k:=0;
h:=0;
l:=8.5;
s:=0;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
S:=i+s;
Until i=40.9;
k:=0;
h:=0;
l:=1;
y:=1;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
y:=i*y;
Until i=3;
If y-s>0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 меньше произведения чисел от 1 до 3 с шагом 0.25');
If y-s<0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 больше произведения чисел от 1 до 3 с шагом 0.25');
If y-s=0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 равно произведению чисел от 1 до 3 с шагом 0.25');
<span>end.
3) </span>Program dsagsa;
var i,j,y: integer;
B: Array[1..5,1..5] of integer;
begin
For i:=1 to 5 do
For j:=1 to 5 do
begin
y:=random(16)-5;
B[i,j]:=y;
end;
For i:=1 to 5 do
begin
Write('(');
For j:=1 to 5 do
Write(B[i,j],' ');
Write(')');
Writeln;
end;
<span>end.
4) </span>program fagasg;
var i,j,i1,j1,y,s: integer;
A: Array[1..50,1..50] of integer;
begin
Writeln('Введите количество строк в массиве');
readln(i1);
Writeln('Введите количество столбцов в массиве');
readln(j1);
s:=0;
For i:=1 to i1 do
begin
Write('(');
For j:=1 to j1 do
begin
y:=random(30)+1;
A[i,j]:=y;
S:=A[i,j]+s;
Write(A[i,j],' ');
end;
Write(')');
Writeln;
end;
<span>end.
Матрицы немного коряво вышли, ну и чуть-чуть быдло кода)</span>
Внешняя память это жесткий диск, объем 1 ТБ
Внутренняя память это оперативная, объем 4 Гб
2ⁿ = 65536, где n = 16
I = 1024 · 800 · 16 = 13107200 бит =
13107200 / 8 Байт =
1638400 / 1024 Килобайт =
1600 / 1024 Мегабайт = 1.56 Мегабайт
Иван может купить видеокарты с памятью 1.5, 2 и 4 Мбайт.
