Question

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

Answer 1

Program l;

var

i, n, s: integer;

begin

writeln('Введите n');

readln(n);

for i = 20 to n do begin

if (i mod 2 <> 0) then

s := s + i;

end;

write(s);

end.

Answer 2

Var
  i,n,s:integer;
begin
  Write('n=');
  Readln(n);
  s:=0;
  for i:=20 to n do
    if Odd(i) then s:=s+i;
  Writeln('Сумма с for = ',s);
  s:=0; i:=21;
  while i<=n do
  begin
    s:=s+i;
    i:=i+2
  end;
  Writeln('Сумма с while = ',s)
end.

Answer 3

Для решения этой задачи на языке Pascal мы можем использовать как цикл for, так и цикл while. Вот оба варианта программы:

1. Цикл for:

pascalCopy code
program SumOfOddNumbersForLoop;

var
  n, i, sum: integer;

begin
  writeln('Введите значение n:');
  readln(n);

  sum := 0;

  for i := 20 to n do
  begin
    if (i mod 2 <> 0) then // Проверяем, является ли число нечетным
      sum := sum + i; // Если число нечетное, добавляем его к сумме
  end;

  writeln('Сумма нечетных чисел от 20 до ', n, ': ', sum);
end.

2. Цикл while:

pascalCopy code
program SumOfOddNumbersWhileLoop;

var
  n, i, sum: integer;

begin
  writeln('Введите значение n:');
  readln(n);

  sum := 0;
  i := 20;

  while i <= n do
  begin
    if (i mod 2 <> 0) then // Проверяем, является ли число нечетным
      sum := sum + i; // Если число нечетное, добавляем его к сумме

    Inc(i);
  end;

  writeln('Сумма нечетных чисел от 20 до ', n, ': ', sum);
end.

Обе программы выполняют одно и то же действие: находят сумму всех нечетных чисел в промежутке от 20 до введенного значения n. Вы можете выбрать любой из вариантов или проверить оба.