Question

Дано натуральное число N. Найти сумму и количество чётных цифр. (На Паскале)

Answer 1

var

  n:longint;

  k,sum:integer;

begin

  write ('N = ');

  readln(n);

  k:=0;

  sum:=0;

  while n <> 0 do

    begin

       if (n mod 10) mod 2 = 0 then

         begin

            k:=k+1;

            sum:=sum+(n mod 10);

         end;

       n:=n div 10;

    end;

  writeln ('Summa: ',sum);

  writeln ('Kol-vo: ',k);

  readln;

end.

Answer 2

Для решения данной задачи на Паскале можно использовать следующий алгоритм:

1. Объявляем переменные sum и count, которые будут хранить сумму и количество четных цифр соответственно. Изначально sum и count равны нулю.

2. Считываем число N.

3. Проходим по всем цифрам числа N, пока оно не станет равно нулю:

3.1. Получаем последнюю цифру числа N с помощью операции N mod 10. 3.2. Если полученная цифра четная, то увеличиваем sum на эту цифру и увеличиваем count на единицу. 3.3. Делим число N на 10, чтобы перейти к следующей цифре. 4. Выводим результаты sum и count.

Пример кода на Паскале:

var
  N, digit, sum, count: integer;
begin
  sum := 0;
  count := 0;
  
  write('Введите число N: ');
  readln(N);
  
  while N <> 0 do
  begin
    digit := N mod 10;
    
    if digit mod 2 = 0 then
    begin
      sum := sum + digit;
      count := count + 1;
    end;
    
    N := N div 10;
  end;
  
  writeln('Сумма четных цифр:', sum);
  writeln('Количество четных цифр:', count);
end.

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