Написать программу в паскале! Написать программу при помощи процедуры, которая по известному радиусу возвращает в основную программу значения площади круга и длины окружности. Входящие данные; R (радиус) Выходящие данные: S (площадь), L (длинна окружности).

Question

Рикуша

Информатика

17 июля, 19:16

Написать программу в паскале! Написать программу при помощи процедуры, которая по известному радиусу возвращает в основную программу значения площади круга и длины окружности. Входящие данные; R (радиус) Выходящие данные: S (площадь), L (длинна окружности).

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Шадэ · Answer 1

var r, s, L, p:real;

begin

p:=3.14;

write ('Введите радиус ');

readln (r);

L:=2 * p * r;

s:=p * (r*r);

writeln ('Площадь ', s);

writeln ('Длинна окружности ', L);

end.