Напишите программу вычисления площади кольца, радиусы вводятся с клавиатуры. Используйте функцию вычисления площади круга

Question

Информатика

Федуля

21 августа, 11:04

Напишите программу вычисления площади кольца, радиусы вводятся с клавиатуры. Используйте функцию вычисления площади круга

+3

Ответы (1)

Знаете ответ на вопрос?

Парфений · Answer 1

Var r1, r2, s:real;

function square (r:real) : real;

begin

square:=pi*r*r;

end;

begin

writeln ('r1, r2:') ;

readln (r1, r2) ;

s:=abs (square (r1) - square (r2)) ;

writeln ('Площадь кольца = ', s:5:2) ;

end.

Пример:

r1, r2:

3 5

Площадь кольца = 50.27