Задача о сумме четных чисел. Опции

[vell]

Нам задали 15 задач на Pascalе. Я решила 14, но последняя все никак не получается.
Задача: Дано натуральное число N. Найти сумму четных цифр в данном числе.
Если кто знает, как её решать - подскажите, буду очень благодарна.

[volvo]

для 46592 он будет 10000

46592 ты не запихаешь в Integer, для начала... Разговор о 16-битном компиляторе, а не о 32-битах.

Добавлено через 5 мин.
Кстати, достаточно сделать так:

uses crt;
var s, a, n: integer;
begin
  clrscr;
  writeln('vvedite naturalnoe chislo');
  readln(n);

  s := 0;
  while n <> 0 do begin
    a := n mod 10;

    if a = 0 then s := 0
    else begin
      if a mod 2 = 0 then s := s + a
    end;
    n := n div 10;
  end;

  writeln('summa cifr = ', s);
  readln;
end.

Сообщение отредактировано: volvo - 18.11.2007 2:04

[BE@ST]

46592 ты не запихаешь в Integer, для начала... Разговор о 16-битном компиляторе, а не о 32-битах.

Добавлено через 5 мин.
Кстати, достаточно сделать так:

uses crt;
var s, a, n: integer;
begin
clrscr;
writeln('vvedite naturalnoe chislo');
readln(n);

s := 0;
while n <> 0 do begin
a := n mod 10;

if a = 0 then s := 0
else begin
if a mod 2 = 0 then s := s + a
end;
n := n div 10;
end;

writeln('summa cifr = ', s);
readln;
end.

ааа ((( - я в панике,нашёл в ней ошибки,к примеру - ввёл 444011,а оно мне выдало сумму -8 (( , спрашивается откуда взялось отрицательно число и я заметил такого плана ошибки выскакивают почти всегда когда вводишь подряд одинаковые цифры (444023, 666021, 888056 и тд )

помогите плиз ((

[Malice]

Поставь

 var s, a, n: LongInt;

для начала.

[BE@ST]

Поставь

 var s, a, n: LongInt;

для начала.

спасибо )

помогло)