Question

Решите пожалуйста очень срочно нужно написать

Answer 1

Задание №1

var r:real;  

begin  

writeln('Введите радиус');  

read(r);  

writeln('Длина окружности = ',2*pi*r);  

writeln('Площадь круга = ',pi*sqr(r));  

end.

Задание №2

Program Rastoyanie;

var x1,x2,y1,y2,S:real;

begin

write('введите координаты');

readln(x1,x2,y1,y2);

S:=sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln(s);

readln;

end.

Задание №3

uses crt;

var

   d, a, b, c, x1, x2: 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:2:2);

       writeln('x2 = ', x2:2:2);

   end

   else if d = 0 then

   begin

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

       writeln('x = ', x1:2:2);

   end

   else

       writeln('Нет действительных корней');

end.

пока что только это