Question

Вывести все двухзначные числа с чётной суммой цифр. (Программа на Paskal)

Answer 1

Ответ:

program SumNum;

var

 i: Integer;

begin

 for i := 10 to 99 do begin

   if (i div 10 + i mod 10) mod 2 = 0 then

     Write (i, ' ');

 end;

 ReadLn;

end.

Answer 2

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

pascalCopy code
program EvenSumDigits;

var
  number: Integer;

begin
  writeln('Two-digit numbers with even sum of digits:');
  
  for number := 10 to 99 do
  begin
    if (number mod 2 = 0) and ((number div 10 + number mod 10) mod 2 = 0) then
      writeln(number);
  end;
  
  readln;
end.

Программа начинает с числа 10 и перебирает все двухзначные числа до 99. Затем она проверяет, является ли число четным и имеет ли сумма его цифр четное значение. Если оба условия выполняются, то число выводится на экран.