Напишите программу на паскаль авс
Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2·π·R, S = π·R^2.В качестве значения П использовать 3,14.
Ответы
Ответ дал:
0
progrom zadanie;
var l, r, s:real;
begin
read (r);
l:=2*3.14*r;
s:=3.14*sqr(r);
writeln ('L=', l, ' S=', s);
end.
var l, r, s:real;
begin
read (r);
l:=2*3.14*r;
s:=3.14*sqr(r);
writeln ('L=', l, ' S=', s);
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад