Написать программу( в Pascal), которая определяет полную поверхность 30-ти шаров. Радиус первого составляет 59 м, а каждого последующего уменьшается на 1 м.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Блок-схема - в прилагаемом файле.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