Предмет: Информатика,
автор: PROFi228
Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2·π·R, S = π·Rв квадрате
В качестве значения π использовать 3.14.
В PascalABC
Ответы
Автор ответа:
0
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.
begin
writeln('Введите радиус');
read(r);
p:=3.14;
l:=2*p*r;
s:=p*sqr(r);
write('Длина окружности равна ',l,' так же площадь круга равна ',s);
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: maken59
Предмет: Русский язык,
автор: kkdjebebdhd
Предмет: География,
автор: Аноним
Предмет: Химия,
автор: Luntupu