Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей