Текст задания

1. Решить квадратное уравнение

2. Решить уравнение при n=1;7;-1

Результат выполнения задания

1.

program Project1;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, SysUtils, CustApp

{ you can add units after this };

VAR

a,b,c,D: integer;

x1,x2:real;

begin

writeln ('vvedite a,b,c');

readln (a);

readln (b);

readln (c);

D:=b*b-(4*a*c);

if D<0 then

writeln ('resheniy net')

else begin

x1:=(-b+sqrt(D))/(2*a);

writeln (x1);

x2:=(-b-sqrt(D))/(2*a);

writeln (x2);

end;

readln;

end.

2.

program Project1;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, SysUtils, CustApp

{ you can add units after this };

VAR

n: integer;

A: real;

begin

writeln ('vvedite n');

readln (n);

if n<>-1 then begin

A:=(1/(1+(1/(1+(1/(1+(1/(1+n))))))))+n*n*(n-1);

writeln (A);

end

else

writeln ('resheniy net');

readln;

end.

10