Предмет: Информатика,
автор: Ололёна1
Помогите , пожалуйста !! Написать алгоритмом и программой Паскаль
Приложения:
Ответы
Автор ответа:
0
var a, b:real;
begin
read (a, b);
writeln(pi*abs(a*a-b*b):0:10);
end.
P.S.
begin
read (a, b);
writeln(pi*abs(a*a-b*b):0:10);
end.
P.S.
Автор ответа:
0
var
r1, r2, s: real;
begin
Write('Введите через пробел внутренний и наружный радиусы кольца: ');
Readln(r1, r2);
s := Pi * (sqr(r2) - sqr(r1));
Writeln('Площадь кольца равна ', s:0:5)
end.
Тестовое решение:
Введите через пробел внутренний и наружный радиусы кольца: 3.85 7.12
Площадь кольца равна 112.69490
r1, r2, s: real;
begin
Write('Введите через пробел внутренний и наружный радиусы кольца: ');
Readln(r1, r2);
s := Pi * (sqr(r2) - sqr(r1));
Writeln('Площадь кольца равна ', s:0:5)
end.
Тестовое решение:
Введите через пробел внутренний и наружный радиусы кольца: 3.85 7.12
Площадь кольца равна 112.69490
Приложения:
Похожие вопросы
Предмет: Музыка,
автор: robloxanastasial
Предмет: Русский язык,
автор: nilaty
Предмет: Геометрия,
автор: tanabobyleva13
Предмет: Алгебра,
автор: бюк
Предмет: Химия,
автор: TechAndrew