Question

В программе Паскаль Дано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 1, иначе выведите 0.

Answer 1

Var x,sum:integer;
begin
  readln(x);
  sum:=1;
  while x>0 do begin
    sum+=x mod 10;
    x:=x div 10;
  end;
  writeln(sum mod 2);
end.

Answer 2

Программа на языке Паскаль, которая определяет, является ли сумма цифр трехзначного числа четным числом и выводит 1, если да, и 0, если нет, может выглядеть следующим образом:

program SumOfDigits;
var
  number, digit1, digit2, digit3, sum: integer;
begin
  // Ввод трехзначного числа
  write('Введите трехзначное число: ');
  readln(number);
  
  // Разбиение числа на цифры
  digit1 := number div 100;
  digit2 := (number div 10) mod 10;
  digit3 := number mod 10;
  
  // Вычисление суммы цифр
  sum := digit1 + digit2 + digit3;
  
  // Проверка на четность суммы
  if sum mod 2 = 0 then
    writeln('1')
  else
    writeln('0');
end.

В данной программе сначала пользователю предлагается ввести трехзначное число. Затем число разбивается на цифры с помощью операций деления и взятия остатка от деления. Затем вычисляется сумма цифр, и проверяется, является ли эта сумма четным числом. Если сумма цифр четная, то на экран выводится 1, иначе - 0.

Например, если ввести число 123, программа выведет 0, так как сумма цифр (1 + 2 + 3) равна 6, что является нечетным числом. Если ввести число 246, программа выведет 1, так как сумма цифр (2 + 4 + 6) равна 12, что является четным числом.