Question

ПОМОГИТЕ! Составьте программу , которая выводит последовательность 50,48,46,44……2 И ЕЩЁ,ТУТ НУЖЕН ЦИКЛ downto ИЛИ ПРОСТО to?Я НЕ ПОНИМАЮ. Главное сделайте через For i := 1 to n do begin.

Answer 1

Ответ:

var i:integer;

Begin

for i:= 50 downto 2 do

if (i mod 2) = 0 then write(i, ' ');

End.

Answer 2

Конечно, я помогу составить программу на языке Pascal, используя цикл for i := 1 to n do begin для вывода последовательности чисел от 50 до 2 с шагом -2:

pascalCopy code
program OutputSequence;

uses
  crt;

const
  n = 25;  // Количество чисел в последовательности (50, 48, 46, ..., 2)

var
  i: integer;

begin
  clrscr;  // Очистить экран

  for i := 50 downto 2 do
  begin
    write(i, ' ');
    if i mod 10 = 0 then
      writeln;  // Перейти на новую строку каждые 10 чисел
  end;

  readln;  // Ждать нажатия Enter
end.

В этой программе используется цикл for i := 50 downto 2 do для перебора чисел от 50 до 2 с шагом -1, и выводятся на экран с помощью write(i, ' '). При достижении числа, кратного 10, программа переходит на новую строку с помощью writeln.