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

Question

Информатика

Стефания

12 октября, 05:35

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

+5

Ответы (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