Задание №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.
пока что только это