Написать программу на языке Pascal (цикл for и while). Найти сумму нечётных чисел в промежутке от 20 до n.

Вариант с циклом for:

program SumOddFor;
var
  n, i, s: integer;
begin
  readln(n);
  s := 0;
  for i := 21 to n do
    if Odd(i) then
      s := s + i;
  writeln('Сумма = ', s);
end.

Вариант с циклом while:

program SumOddWhile;
var
  n, i, s: integer;
begin
  readln(n);
  s := 0;
  i := 21;
  while i <= n do
  begin
    s := s + i;
    i := i + 2;
  end;
  writeln('Сумма = ', s);
end.

Если \(n<20\), сумма останется равной \(0\).

0 0 Пожаловаться