Какое количество страниц(в тысячах) будет найдено по запросу лягушка

0.27 - 0.09 = 0.18

или

27/100 - 9/100 = 18/100

var i: integer; s: real;

begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.

var h,a: integer;

begin

  a: =1;

  repeat

      h: = h+3;

      a: =2*a;

      writeln('прошло часов - ',h,', амеб - ',a)

  until h> =30;

  readln;

end.

ошибка в том что натуральный логарифм (-1) не существует

program summa; uses crt; var n,i: integer; s: real;

p1,p2: integer; begin clrscr; writeln ('vvedite n'); readln (n); s: =0;

p1: =-1;

p2: =2; for i: =1 to n do

begins: =s+p1/p2;

p1: =-p1;

p2: =p2*2;

end; writeln ('s=', s); readln; end.