Жизненно необходимо. последние за эту .вычислить 5-й член последовательности образованный дробями 1/1 2/1 3/2 т. е числитель(знаменатель) следующего члена последовательности получается сложением числителей(знаменателей) двух предыдущих членов. также нужно вычислить член последовательности который отличается от предыдущего члена не более чем на 0,001.

Const e=0.001; var a,b,c,i: integer; begin a: =1; b: =2; i: =1; write('1/1 '); while (abs(b/a-(a+b)/b)> e) do   begin   i: =i+1;   if i< =5 then write(b,'/',a,' ');   c: =a+b;   a: =b;   b: =c;   end; writeln; writeln(a+b,'/',b,' '); end. результат: 1/1 2/1 3/2 5/3 8/589/55

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

 

пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб

(около кола _колокола и на колах _колокола)