Question

Составьте программу проверяющую верно ли что сумма цифр введенного целого 3х значного числа является нечетным паскаль

Answer 1

Var
a,sum:integer;
begin
readln(a);
sum:= a div 100 + a div 10 mod 10 + a mod 10;
if (sum mod 2 = 0) then
writeln('Сумма чисел: ',sum,' Число является четным.')
else
writeln('Сумма чисел: ',sum,' Число не является четным.');
end.

Answer 2

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

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 = 1 then
    writeln('Сумма цифр является нечетной')
  else
    writeln('Сумма цифр является четной');
end.

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

Примечание: В приведенном примере программы используется язык Pascal. Если вы хотите использовать другой язык программирования, то код будет отличаться.