Question

В шестизначном числе найти сумму четных цифр(паскаль)

Answer 1

var a,s,i:integer;

begin

 writeln('введите шестизначное число');

 readln(a);

 s:=0;

 for I:=1 to 6 do begin

   if a mod 2 = 0 then s:=s+a mod 10;

   a:=a div 10;

 end;

 writeln(s);

end.

Answer 2

Для нахождения суммы четных цифр в шестизначном числе вам потребуется разбить число на отдельные цифры и проверить, является ли каждая из них четной (делится на 2). Если цифра четная, добавьте её к сумме. Вот пример на Pascal:

pascalCopy code
program SumOfEvenDigits;

var
  number, digit, sum: integer;

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

  // Инициализация суммы
  sum := 0;

  // Перебираем цифры числа и суммируем четные
  for var i := 1 to 6 do
  begin
    digit := number mod 10; // Получаем последнюю цифру
    if digit mod 2 = 0 then
      sum := sum + digit; // Если цифра четная, добавляем её к сумме
    number := number div 10; // Убираем последнюю цифру из числа
  end;

  // Вывод суммы четных цифр
  writeln('Сумма четных цифр: ', sum);
end.

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