Ответ учителя по предмету Информатика
Var C,S,R: real;
Begin
writeln (‘Введите радиус круга’);
readln (R);
S:=Pi*R*R;
C:=2*Pi*R;
writeln (‘Площадь круга S = ‘, S:4:2);
writeln (‘Длина окружности C = ‘, C:4:2);
End.
Var C,S,R: real;
Begin
writeln (‘Введите радиус круга’);
readln (R);
S:=Pi*R*R;
C:=2*Pi*R;
writeln (‘Площадь круга S = ‘, S:4:2);
writeln (‘Длина окружности C = ‘, C:4:2);
End.
Похожие вопросы от пользователей
2-х=-15
-13+х=19
-25-х=12
-16-х=-40
-72:х=2
-13*х=39
14-х=-17
помогите пожалуйста,
срочно надо