Конечно, вот как можно решить данную задачу двумя способами:
Способ 1 (с использованием цикла while):
program sum_of_series; var sum, i: integer; begin sum := 0; i := 1; while i <= 33 do begin sum := sum + i; i := i + 2; end; writeln('Сумма ряда равна: ', sum); end.
Способ 2 (с использованием цикла for):
program sum_of_series; var sum, i: integer; begin sum := 0; for i := 1 to 33 do begin if i mod 2 <> 0 then begin sum := sum + i; end; end; writeln('Сумма ряда равна: ', sum); end.
Оба способа позволят вычислить сумму данного ряда и выведут результат на экран.
Конечно, вот как можно решить данную задачу двумя способами:
Способ 1 (с использованием цикла while):
program sum_of_series;var
sum, i: integer;
begin
sum := 0;
i := 1;
while i <= 33 do
begin
sum := sum + i;
i := i + 2;
end;
writeln('Сумма ряда равна: ', sum);
end.
Способ 2 (с использованием цикла for):
program sum_of_series;var
sum, i: integer;
begin
sum := 0;
for i := 1 to 33 do
begin
if i mod 2 <> 0 then
begin
sum := sum + i;
end;
end;
writeln('Сумма ряда равна: ', sum);
end.
Оба способа позволят вычислить сумму данного ряда и выведут результат на экран.