Результат: 27.25
Если округлить до десятых, то: 27.3
Var
x,z : Real;
i : Byte;
Begin
x:=58;
z:=1;
i:=0;
Repeat
z:=(z+x/2)/2;
Inc(i);
Until i>=4;
Writeln(z);
end.
Вы добавили вчера , вам ещё нужно?
N=int(input())
a=[]
for i in range(n):
(пробел)a.append=int(input())
a=sorted(a)
a=reverse(a)
print(a)
Var x,y:integer;
begin
readln(x,y);
if (x<0) and (y>1) and (sqr(x)+sqr(y)>4) then writeln('A')
else if (x>0) and (y>1) and (sqr(x)+sqr(y)>4) and (y>x-2) then writeln('B')
else if (sqr(x)+sqr(y)<4) and (y>1) then writeln('C')
else if (x<-2) and (sqr(x)+sqr(y)>4) and (y>0) and (y<1) then writeln('D')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y>0) and (y<1) then writeln('E')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y>0) and (y<1) then writeln('F')
else if (sqr(x)+sqr(y)>4) and (y>0) and (y<1) and (x>2) and (y>x-2) then writeln('G')
else if (sqr(x)+sqr(y)>4) and (y>0) and (y<1) and (x>2) and (y<x-2) then writeln('H')
else if (sqr(x)+sqr(y)>4) and (x<0) and (y<0) and (y>x-2) then writeln('I')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y<0) and (y>x-2) then writeln('J')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y<0) and (y>x-2) then writeln('K')
else if (sqr(x)+sqr(y)<4) and (x>0) and (y<0) and (y<x-2) then writeln('L')
else if (sqr(x)+sqr(y)>4) and (x>0) and (y<0) and (y<x-2) then writeln('M')
else if (sqr(x)+sqr(y)<4) and (x<0) and (y<0) and (y<x-2) then writeln('N')
else if (y>1) and (y<x-2) then writeln ('O')
else writeln('Точка не лежит ни в одной из областей');
<span>end.</span>
Program z1;
var x,y:integer;
begin
readln(x,y);
if x>y then writeln(x) else writeln (y);
end.