Question

(Pascal abc/turbo) Вычислить сумму натуральных четных чисел, не превышающих N. Программу составьте двумя способами: используя цикл с предусловием и цикл с постусловием.

Answer 1

Ответ:

program pred;

var

 n, i, s: Integer;

begin

 Write ('Введите N: ');

 ReadLn (n);

 s := 0;

 i := 1;

 while i <= n do begin

   if i mod 2 = 0 then

     s := s + i;

   Inc (i);

 end;

 WriteLn ('Сумма = ', s);

 ReadLn;

end.

- - - - - - - - - - - - - -  

program post;

var

 n, i, s: Integer;

begin

 Write ('Введите N: ');

 ReadLn (n);

 s := 0;

 i := 1;

 repeat

   if i mod 2 = 0 then

     s := s + i;

   Inc (i);

 until i > n;

 WriteLn ('Сумма = ', s);

 ReadLn;

end.

Answer 2

Сначала давайте разберемся, что такое цикл с предусловием и цикл с постусловием.

Цикл с предусловием выполняется, пока условие истинно. То есть, перед каждой итерацией цикла проверяется условие, и если условие истинно, то выполняется код цикла. Если условие ложно, то цикл прекращается.

Цикл с постусловием, напротив, выполняется хотя бы один раз, затем проверяется условие и при его истинности повторяется. То есть, сначала выполняется код цикла, а затем проверяется условие.

Теперь давайте решим задачу о вычислении суммы натуральных четных чисел, не превышающих N.

1. Цикл с предусловием:

```pascal
var
N, sum, i: integer;
begin
sum := 0;
i := 2;

writeln('Введите число N:');
readln(N);

while i <= N do
begin
sum := sum + i;
i := i + 2;
end;

writeln('Сумма натуральных четных чисел, не превышающих N, равна ', sum);
end.
```

В этом способе мы начинаем с переменной сумма, равной 0, и переменной i, равной 2 (так как мы ищем натуральные четные числа). Затем мы считываем значение N. В цикле с предусловием мы добавляем i к сумме, затем увеличиваем i на 2, чтобы перейти к следующему четному числу. Цикл повторяется, пока i меньше или равно N. Наконец, мы выводим результат на экран.

2. Цикл с постусловием:

```pascal
var
N, sum, i: integer;
begin
sum := 0;
i := 2;

writeln('Введите число N:');
readln(N);

repeat
sum := sum + i;
i := i + 2;
until i > N;

writeln('Сумма натуральных четных чисел, не превышающих N, равна ', sum);
end.
```

Здесь мы делаем то же самое, что и в первом способе, но используем цикл с постусловием. Мы считываем значение N, затем в цикле добавляем i к сумме и увеличиваем i на 2. Также мы добавляем проверку, что i больше N, чтобы выйти из цикла. Затем выводим результат на экран.

Оба этих способа решают задачу и вычисляют сумму натуральных четных чисел, не превышающих N. Разница только в способе организации цикла.