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

[volvo]

т.е. если я ввожу 24066 - мне выводило сумму 6 а не 18 !!!

А ты не в курсе, что сумма считается с младших, а не со старших разрядов, то есть "до нуля" - будет 6+6 = 12, а не 2+4 = 6

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

[BE@ST]

А ты не в курсе, что сумма считается с младших, а не со старших разрядов, то есть "до нуля" - будет 6+6 = 12, а не 2+4 = 6

хмм ... а нельзя ли как то сделать чтобы считало слева ?

зы только начал изучать

[Client]

если хочешь слева начать то надо найти как-бы разряд числа (для 46592 он будет 10000) а потом все просто..

Сообщение отредактировано: Client - 18.11.2007 1:57

[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

[Client]

я так делал одну задачу, вот и вспомнил

Разговор о 16-битном компиляторе, а не о 32-битах.

это значит что можно тоьлько Integer максимум использовать?
Вот так просто ты ее решил)
Не могу переставать тебе удивляться..

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

[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.

огромный тебе респект !

ты меня выручил!!!

[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;

для начала.

спасибо )

помогло)