Паскаль:
Var xa,ya,xb,yb:integer;
AB:real;
begin
read (xa,ya,xb,yb);
AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
Write ('|AB|=',AB:3:1);
end.
<span>2048 байт или 2 килобайта. </span>
var
y,n:integer;
x:real;
begin
n:=1;
write('x= ');
readln(x);
write('y= ');
readln(y);
while x < y do <em>begin</em>
inc(n);
x:=x*1.1;
<em>end;</em>
writeln(n);
<span>end.</span>