Практическое задание №20

Тема: Знакомство с языком Паскаль

 

         №1

  Program Numbers;

var a, b, c, d, f: integer;

begin

  readln (a, b, c, d);

  f:=(a+b+c+d)/4;

  writeln (f)

end.

 

 

№2 Program mine;

     var a,b,c,d:integer; x1,x2:real;

     begin

      writeln('Введите коэффициенты');

      readln(a,b,c);

      d:=b*b-4*a*c;

     if (d<0) then writeln('Нет решения')

    else if (d=0) then

    begin

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

    writeln('x=',x1);

    end.

     else begin

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

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

    writeln('x1= ',x1,'x2=',x2);

    end.

 

3. program mine1;

    var R1, R2: real;

    begin

       write('Введите данные - ');

       read(R1, R2);

       writeln('Pi = ', pi); 

       writeln('S = ', pi * abs(R1 * R1 - R2 * R2));

       end.