Question

Задача в паскале нужен код Вывести на экран четные числа от 50 к 10 ( от большего к меньшему) паскаль СРОЧНО ПРОШУ ПОМОГИТЕ

Answer 1

Ответ:

program z1;

var i:integer;

begin

for i:=50 downto 10 do if i mod 2 = 0 then write (i,'  ');

end.

Answer 2

Конечно, вот пример кода на Pascal, который выводит четные числа от 50 до 10 в порядке убывания:

pascalCopy code
program EvenNumbers;
var
  i: Integer;
begin
  for i := 50 downto 10 do
  begin
    if i mod 2 = 0 then // Проверяем, является ли число четным
      writeln(i);
  end;
end.

Этот код начинает с числа 50 и уменьшает его на каждой итерации цикла. Затем он проверяет, является ли текущее число четным (путем проверки остатка от деления на 2), и если да, то выводит его на экран.