Question

Паскаль. Вводится целое число. Найти разность между суммами цифр стоящих на четных и нечетных местах

Answer 1

var

  sn, s, n, c : integer;

begin

  read (n);

  c := 0; sn := 0; s := 0;

  while n > 0 do

  begin

    if c mod 2 = 0 then s := s + n mod 10

    else sn := sn + n mod 10;

    n := n div 10;

    inc (c);

  end;

  if c mod 2 = 0 then writeln (s - sn)

  else writeln (sn - s);

end.

Answer 2

Вот пример программы на Pascal, которая выполняет описанную вами задачу:

pascalCopy code
program DifferenceBetweenEvenAndOddDigits;

var
  num, digit, evenSum, oddSum: integer;
  position: integer;

begin
  evenSum := 0;
  oddSum := 0;

  // Введите целое число
  write('Введите целое число: ');
  readln(num);

  position := 1; // начнем считать с четной позиции

  while num > 0 do
  begin
    digit := num mod 10; // получаем последнюю цифру
    num := num div 10;   // убираем последнюю цифру

    if position mod 2 = 0 then // четная позиция
      evenSum := evenSum + digit
    else
      oddSum := oddSum + digit;

    position := position + 1;
  end;

  // Выводим результат
  writeln('Разность между суммами цифр на четных и нечетных позициях: ', evenSum - oddSum);
end.

Эта программа сначала объявляет переменные для хранения сумм четных и нечетных цифр (evenSum и oddSum). Затем программа запрашивает у пользователя ввод целого числа.

Далее, с помощью цикла while, программа разбирает число по цифрам, начиная с конца. На каждой итерации цифра извлекается с помощью операций деления на 10 (num mod 10), а затем убирается из числа (num := num div 10).

Цифры с четными и нечетными позициями подсчитываются и добавляются к соответствующим суммам (evenSum и oddSum). Позиция обновляется на каждой итерации.

Наконец, программа выводит разность между суммами четных и нечетных цифр.