(30 )) на паскаль : дано целое число n ( > 0). последовательность действительны х чисел ак определяется следующим образом : ао = 2, ак = 2 + 1 / а к -1 , к = 1,2, . вывести элементы ак

Сначала - современное решение, каким оно должно быть: // pascalabc.net 3.0, сборка 1157 от 02.02.2016 begin   seqgen(readinteger('k=')+1,2.0,x-> 2+1/x).skip(1).println; end. тестовое решение: k= 6 2.5 2.4 2.41666666666667 2.41379310344828 2.41428571428571 2.41420118343195 а теперь "школьный вариант": // pascalabc.net 3.0, сборка 1157 от 02.02.2016 var   i,k: integer;   a,a0: real; begin   write('k='); read(k);   a0: =2;   for i: =1 to k do begin       a: =2+1/a0; a0: =a; write(a,' ')       end end. тестовое решение: k=6 2.5 2.4 2.41666666666667 2.41379310344828 2.41428571428571 2.41420118343195

1. var x,y: integer; begin write('x = '); readln(x); if x> 0    then y: =1   else if x=0 then y: =0 else y: =-1; writeln('y = ',y); end. пример: x = -5 y = -1 2. var a,b,c,x1,x2,d: real; begin writeln('введите a, b, c: '); readln(a,b,c); d: =b*b-4*a*c; if d> 0   then begin       x1: =(-b+sqrt(d))/(2*a);       x2: =(-b-sqrt(d))/(2*a);       writeln('x1 = ',x1,' x2 = ',x2);       end   else if d=0 then begin                     x1: =-b/(2*a);                     writeln('x = ',x1);                     end                 else writeln('корней нет'); end.  пример: введите a, b, c: 2 5 -3 x1 = 0.5 x2 = -3 3. var a,b,c: real; begin writeln('введите a, b, c: '); readln(a,b,c); if (a< =b)and(b< =c)   then begin       b: =a; c: =a;       end   else begin       a: =-a; b: =-b; c: =-c;         end; writeln('a = ',a,' b = ',b,' c = ',c); end.  пример 1: введите a, b, c: 2 5 9 a = 2 b = 2 c = 2 пример 2: введите a, b, c: 2 9 5 a = -2 b = -9 c = -5