Ответы
Ответ дал:
0
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var r:=ReadReal('Введите радиус->');
writeln ('Длина окружности равна - ',2*3.14*r);
writeln ('Площадь окружности равна - ',3.14*sqr(r));
end.
Пример:
Введите радиус-> 5
Длина окружности равна - 31.4
Площадь окружности равна - 78.5
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var r:=ReadReal('Введите радиус->');
writeln ('Длина окружности равна - ',2*3.14*r);
writeln ('Площадь окружности равна - ',3.14*sqr(r));
end.
Пример:
Введите радиус-> 5
Длина окружности равна - 31.4
Площадь окружности равна - 78.5
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад