http://pro-spo.ru/workopenoffice/3900-openoffice-calc-dlya-nachinayushhix-elektronnaya-tablicza-kak-baza-dannyx-pechat-dokumenta СИЛКА НА САЙТ З ПОЯСНЕННЯМ!!!
Var
r, v: real;
i: integer;
begin
v := 0;
r := 0.5; {радиус в дм, т.к. литр - это куб.дм.}
for i := 1 to 12 do
begin
v := v + 4 * Pi / 3 * sqr(r) * r;
r := r + 0.05
end;
Writeln('Суммарный объем равен ', v:0:3, ' л.')
end.
Тестовое решение:
Суммарный объем равен 26.879 л.
1024*768*60=786 432*60=47 185 920 байт = 46 080 КБ = 45 мб
<span>Были когда-то такие вот стихи: -Дальше будет нам видней: двадцать лет не двадцать дней! Этим всё сказано.</span>