Question

Составить программу на Паскале: Из чисел от 10 до 99, вывести те числа, у которых сумма цифр четная.

Answer 1

program Sanya2263;

var i,a,b: integer;

begin

For i:= 10 to 99 do begin

a:=i div 10;

b:=i mod 10;

if (a+b) mod 2=0 then Write(i, ' ');

end;

end.

Answer 2

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

pascalCopy code
program SumOfDigits;

var
  number, digit1, digit2, sum: integer;

begin
  writeln('Числа от 10 до 99 с четной суммой цифр:');

  for number := 10 to 99 do
  begin
    // Разбиваем число на цифры
    digit1 := number div 10;
    digit2 := number mod 10;

    // Вычисляем сумму цифр
    sum := digit1 + digit2;

    // Проверяем, является ли сумма четной
    if sum mod 2 = 0 then
      writeln(number);
  end;

  readln;
end.

Эта программа использует цикл for, чтобы перебирать числа от 10 до 99 включительно. Для каждого числа она разбивает его на две цифры (digit1 и digit2), затем вычисляет их сумму. Если сумма четная, то число выводится на экран.