Var
i,n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
s:=s+(1/i);
writeln(s);
<span>end.</span>
Ответ: 135(10) = 207(8), фото ниже.
Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);
for i:=1 to n dofor j:=1 to n doif a[i,j] mod n =0 then a[i,j]:=a[i,j] div n;
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.
Var
a, b, c, ma, mb, mc: real;
begin
read(a); read(b); read(c);
ma:=(sqrt(2*b*b+2*c*c-a*a))/2;
mb:=(sqrt(2*a*a+2*c*c-b*b))/2;
mc:=(sqrt(2*a*a+2*b*b-c*c))/2;
writeln('Медиана к стороне a=', ma:17:2);
writeln('Медиана к стороне b=', mb:17:2);
writeln('Медиана к стороне с=', mс:17:2);
end.