Question

Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может, напишите пожалуйста алгоритм решения для программы Паскаль

Answer 1

Var a,b,c,k:integer;
begin
read(a); c:=10; b:=0;
for k:=1 to 3 do begin
b:=b + a mod c; c:=c+10; end;
if (b mod 2= 0) then write ('Norm') else write ('Nechetnoe');
end.

Answer 2

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

program CheckSumIsEven;

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

begin
  // Ввод трехзначного числа
  write('Введите трехзначное число N: ');
  readln(N);

// Разбиение числа на цифры
  digit1 := N div 100;
  digit2 := (N div 10) mod 10;
  digit3 := N mod 10;

// Вычисление суммы цифр
  sum := digit1 + digit2 + digit3;

// Проверка четности суммы цифр
  if sum mod 2 = 0 then
    writeln('Сумма цифр числа ', N, ' является четным числом.')
  else
    writeln('Сумма цифр числа ', N, ' не является четным числом.');

end.

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