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 л.
Вопервых, нужно ввести логин и пароль. Если вы не зарегистрированы на электронной почте, обязательно нужно зарегистрироваться. Сервер определяет вашу почту и вы появляетесь в почтовом электронном ящике.
Режимы в почтовом ящике не так и много: входящие, спам, рассылки, отправить письмо, настройка аккаунта и выйти из аккаунта.
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.
1 1 4
2 вообще-то все отсносятся к заразервированным
3 3
4 1