Question

ПОМОГИТЕ ПОЖАЛУЙСТА. Работа в паскале. Составьте программу определяющую является ли сумма цифр данного четырёхзначного числа n четным числом

Answer 1

Var
   A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
if ((A div 1000) + ((A div 100) mod 10) + ((A div 10) mod 10) + (A mod 10)) mod 2 = 0 then WriteLn('Да, является')
else WriteLn('Нет, не является')
End.

Answer 2

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

pascalCopy code
program CheckSumEven;
var
  n, sum: integer;

function IsEven(num: integer): boolean;
begin
  if num mod 2 = 0 then
    IsEven := true
  else
    IsEven := false;
end;

begin
  writeln('Введите четырехзначное число: ');
  readln(n);
  
  sum := 0;
  
  // Вычисляем сумму цифр
  sum := sum + n div 1000;      // Получаем тысячи
  sum := sum + (n div 100) mod 10;   // Получаем сотни
  sum := sum + (n div 10) mod 10;    // Получаем десятки
  sum := sum + n mod 10;         // Получаем единицы
  
  writeln('Сумма цифр числа ', n, ' равна ', sum);
  
  if IsEven(sum) then
    writeln('Сумма цифр является четным числом.')
  else
    writeln('Сумма цифр не является четным числом.');
end.

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

Обратите внимание, что программа ожидает ввода четырехзначного числа, поэтому следует быть внимательным при вводе данных.