Найти сумму чисел от 3,5,7,9,11 ... 101 через паскаль. Помогите,пожалуйста)

1
Ответов - 1
Найти сумму чисел от 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


Добавить ответ
Похожие вопросы
Топ Комментарии Архив
«    Апрель 2021    »
ПнВтСрЧтПтСбВс
 1234
567891011
12131415161718
19202122232425
2627282930 
Теги