Ответ учителя по предмету Информатика
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 суток (напомню, что в сутках 24 часа) на плоту, а обратно вернулся теплоходом за 2 ч.
Найдите собственную скорость теплохода, если скорость течения реки равна 2 км/ч.
Заранее спасибо)