Найти сумму чисел от 3,5,7,9,11 ... 101 через паскаль. Помогите,пожалуйста)
Найти сумму чисел от 3,5,7,9,11 ... 101 через паскаль. Помогите,пожалуйста)
Гость
Ответ(ы) на вопрос:
Гостьvar
i, s: integer;
begin
s := 0;
i := 3;
while i <= 101 do
begin
s := s + i;
i := i + 2
end;
Writeln('Сумма равна ', s)
end.
Тестовое решение:
Сумма равна 2600
Не нашли ответ?
Похожие вопросы