Var n,i,j: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> j:=Trunc(sqrt(n));
</span><span> </span><span> for i:=1 to j do write(i*i,' ');
</span><span>end.
</span>
n = 100
<span>1 4 9 16 25 36 49 64 81 100
</span>
64=2⁶ значит 6 бит приходится на 1 символ
6*20=120бит
ответ: 120 бит
#1
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := ((x + y - z)/(x*x + 2));
writeln(a);
end.
#2
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := 5*((2*x-z)/(3+y*y));
writeln(a);
end.
#3
var
x,y,z : integer;
a : real;
begin
readln(x,y,z);
a := (1 + z)*((x+(y/x*x+4))/(2+(1/(x*x+4))));
writeln(a);
end.
#2.1
const pi = 3.14;
var
l,s,r : real;
begin
readln(r);
l := 2 * pi * r;
s := pi * r * r;
writeln(l);
writeln(s);
end.
#2.2
var
x : real;
begin
readln(x);
writeln((180 - x)/2);
end.
Для пары целых ненулевых чисел (a,b) существует соотношение
НОК(a,b)*НОД(a,b)=a*b
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
function gcd(a,b:integer):integer;
// НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
function lcm(a,b:integer):=(a*b) div gcd(a,b); //НОК
begin
var a:=36;
var b:=54;
var c:=18;
var d:=15;
Writeln('НОК(',a,',',b,',',c,',',d,')=',
lcm(lcm(lcm(a,b),c),d))
end.
<u><em>Тестовое решение:</em></u>
НОК(36,54,18,15)=540
В пятом будет под буквой Г
