Question

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

Answer 1

var

 r:real;

 i:integer;

 

function Ploshad(x:real):real;

 begin

   Ploshad:=pi*sqr(x);

 end;

 

begin

 writeln('Показания упрощены до сотых!');

 for i:=1 to 3 do

   begin

     write('Введите радиус ',i,'-го круга: ');

     readln(r);

     writeln('Его площадь: ',Ploshad(r):0:2);

   end;

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!