Question

Дано трехзначное число. проверить будет ли сумма его цифр четным числом.на Pascal abc

Answer 1

Program dsjugf;
uses crt;
var a,b,c,s: integer;
begin
readln(a);
s:=0;
b:=a mod 10;
a:=a div 10;
c:=a mod 10;
a:=a div 10;
s:=a+b+c;
if ((s mod 2)=0) then writeln('четное');
else writeln('нечетное');
readln;
end.

Answer 2

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

pascalCopy code
program CheckSumIsEven;

var
  number, digit1, digit2, digit3, sum: integer;

begin
  writeln('Введите трехзначное число: ');
  readln(number);

  if (number >= 100) and (number <= 999) then
  begin
    // Извлекаем цифры
    digit1 := number div 100;
    digit2 := (number div 10) mod 10;
    digit3 := number mod 10;

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

    writeln('Сумма цифр числа ', number, ' равна ', sum);

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

  readln;
end.

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