Написать программу, которая вычисляет площади трех кругов. Вычисление площади круга вынести в функцию. На паскале
Ответы
Ответ дал:
0
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.
Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!
Вас заинтересует
1 год назад
7 лет назад
8 лет назад