Question

Напишите пожалуйста программу в pascal Выведите на экран все трехзначные числа, у которых последняя цифра четная

Answer 1

var i: integer;

begin

for i:=100 to 999 do

if (i mod 10) mod 2=0

then write(i,' ');

end.

Answer 2

Конечно, вот пример программы на Pascal, которая выводит все трехзначные числа, у которых последняя цифра четная:

pascalCopy code
program ThreeDigitEvenNumbers;

var
  num: Integer;

begin
  writeln('Трехзначные числа, у которых последняя цифра четная:');
  for num := 100 to 999 do
  begin
    if (num mod 10) mod 2 = 0 then // Проверяем, является ли последняя цифра четной.
      writeln(num);
  end;
end.

Программа выводит на экран все трехзначные числа, у которых последняя цифра четная. Например:

pythonCopy code
100
102
104
...
998

Здесь мы используем цикл for, чтобы пройти через все трехзначные числа (от 100 до 999). Затем мы проверяем, является ли последняя цифра числа четной, используя операторы mod и =. Если условие выполняется, то число выводится на экран с помощью writeln.