Смотреть объяснение.
Объяснение:
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.
Смотреть объяснение.
Объяснение:
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.