Предмет: Информатика,
автор: alekssredov
Как в Паскале записать решить задачу: найти площадь круга и длину окружности если дан радиус. В записи в Паскале надо использовать оператор READLN.
Ответы
Автор ответа:
0
//Как в Паскале записать решить задачу: найти площадь круга
//и длину окружности если дан радиус.
//В записи в Паскале надо использовать оператор READLN.
var r,s,p : real;
begin
Writeln ('Введите радиус искомой окружности');
Readln (r);
p:=2*3.14*r;
s:=3.14*sqr (r);
Writeln ('Длина окружности находится по формуле p=2πr и равна ',p);
Writeln ('Площадь круга находится по формуле S=π r^2 и равна ',s);
end.
//и длину окружности если дан радиус.
//В записи в Паскале надо использовать оператор READLN.
var r,s,p : real;
begin
Writeln ('Введите радиус искомой окружности');
Readln (r);
p:=2*3.14*r;
s:=3.14*sqr (r);
Writeln ('Длина окружности находится по формуле p=2πr и равна ',p);
Writeln ('Площадь круга находится по формуле S=π r^2 и равна ',s);
end.
Похожие вопросы
Предмет: Русский язык,
автор: diaabd150ozrpt6
Предмет: Українська мова,
автор: FaNNtA
Предмет: Русский язык,
автор: bambelbeepraim12
Предмет: Английский язык,
автор: Rusta33