напишите пожалуйста программу в Pascal
Вводится радиус, найти: диаметр, площадь круга данного радиуса, длину окружности данного радиуса
Ответы
Ответ дал:
1
Ответ:
Смотреть объяснение.
Объяснение:
Program rdsc;
Var r, d, s, c:real;
Begin
Write('Введите радиус окружности (pi=3.14): ');
Read(r);
d:=2 * r;
Writeln ('Диаметр окружности равен: ',d);
s:=3.14 * r * r;
Writeln ('Площадь окружности равна: ', s);
c:=2 * 3.14 * r;
Writeln ('Длина окружности равна: ', c);
Readln;
End.
Приложения:
![](https://st.uroker.com/files/ba2/ba254f6d74d2a9efa0aea12dd34c07d4.png)
Вас заинтересует
1 год назад
7 лет назад
8 лет назад
8 лет назад