Question

Написать программу( в Pascal), которая определяет полную поверхность 30-ти шаров. Радиус первого составляет 59 м, а каждого последующего уменьшается на 1 м.

Answer 1

Блок-схема - в прилагаемом файле.
var r:integer; s:real;
begin
s:=0;
for r:=59 downto 30 do
 s:=s+4*pi*r*r;
writeln('s = ',s:10:3);
end.

Результат:
s = 774779.580