Var a: integer;
<span>begin </span>
readln (a);
writeln (sqr((a mod 1000) div 100));<span>
end.</span>
Const
a=-10;
b=1;
var
i: integer;
begin
for i:=a to b do
writeln('F1(',i,')=',1/Tan(i));
end.
Const
a=2;
b=10;
var
i: integer;
x,f,min,max: real;
begin
x:=a;
min:=power(x,3/5);
max:=min;
for i:=a to b do
begin
x:=i;
f:=power(x,3/5);
writeln(f);
if f<min then min:=f;
if f>max then max:=f;
end;
writeln('min=',min);
writeln('max=',max);
end.
Program OLk;
Var x,y,b:integer
Begin
Writelen('Введите 2 числа');
Read(x,b);
y:=2*sqr(x)+b;
Writeln(y);
end.
2.2 Гб = 2.2×1024 Мб = 2252.8 Мб
2252.8 / 700 ≈ 3 диска