Предмет: Информатика,
автор: alinasadukova
составить программу вычисления площади круга и длину окружности величину радиуса вводить с клавиутуры ,выход из программы при нулевом радиусе
Ответы
Автор ответа:
0
program dd;
uses crt;
var S,c,r,pi:real;
begin
Writeln('Величина радиуса ');
read(r);
pi:=3.14;
if r>0 then
begin
S:=Pi*r*r;
c:=2*Pi*r;
Write ('площадь =',S:6:2,' Длина окружности =',c:6:2) end
else
end.
Похожие вопросы
Предмет: Английский язык,
автор: apapapapm
Предмет: Русский язык,
автор: tishchenkonatasha
Предмет: Химия,
автор: sevanrej
Предмет: Химия,
автор: Архитектура
Предмет: Математика,
автор: тто