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

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.

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

Comments

двузначное число аналогично, к 9 решению не нашла

---

эм у нас задачи типа

---

print ("Введите a,b,c")

---

a=int(input

---

исправь так, как учили мб

---

дело в том что я это не знаю))))0)0)00

---

лол)0)

---

мы делаем в Python Online или в Wing

---

оу, тогда я не знаю, прости(

---

жоска