Question

Информатика, работа в ПАСКАЛЕ составить программу для проверки, является ли сумма цифр двухзначного четной. (например, 24 и 6 эта сумма четная. А у 25 и 7 она ничетная)

Answer 1

• Program Brainly;
• Var a, b: integer;
• Begin
• Writeln('Введите число а: ');
• Readln(a);
• Writeln('Введите число b: ');
• Readln(b);
• if (((a + b) mod 2=0)) then writeln('Сумма цифр – чётная')
• else writeln('Сумма цифр – нечётная');
• end.

Answer 2

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

pascalCopy code
program CheckSumIsEven;

var
  number, digit1, digit2, sum: integer;

begin
  // Введите двузначное число
  write('Введите двузначное число: ');
  readln(number);

  // Проверяем, что число действительно двузначное
  if (number >= 10) and (number <= 99) then
  begin
    // Разбиваем число на цифры
    digit1 := number div 10;
    digit2 := number mod 10;

    // Считаем сумму цифр
    sum := digit1 + digit2;

    // Проверяем, является ли сумма четной
    if sum mod 2 = 0 then
      writeln('Сумма цифр двузначного числа ', number, ' четная.')
    else
      writeln('Сумма цифр двузначного числа ', number, ' нечетная.');
  end
  else
    writeln('Введенное число не является двузначным.');
end.

Вы можете скопировать этот код и выполнить его в среде программирования Pascal. Программа попросит вас ввести двузначное число и затем сообщит, является ли сумма его цифр четной.