Напишите программу на паскаль авс Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·R^2. В качестве значения П использовать 3,14.

Question

Александр Пирогов

Информатика

19 августа, 17:04

Напишите программу на паскаль авс Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·R^2. В качестве значения П использовать 3,14.

+4

Ответы (1)

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

Таисия Савельева · Answer 1

Var l, s, p, r:real;

begin

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

read (r);

p:=3.14;

l:=2*p*r;

s:=p*sqr (r);

write ('Длина окружности равна ', l,' так же площадь круга равна ', s);

end.