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

Maria404404 Maria404404    2   20.05.2019 00:00    0

Ответы
sofiotap3 sofiotap3  13.06.2020 06:22

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика