сумма цифр

@LeonardoBreslav · Регистрация: 16.04.2011

Author24 — интернет-сервис помощи студентам

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

@Zverit · 25.04.2011, 19:59

Pascal

var s:string; 
 i,n:integer;
begin
 repeat
 readln (n);
 
 if n>0 then
  begin
   i:=i + n;
  end;
 until   n < 0;
writeln (i);
readln;
end.

@SuPeR XaKer · 25.04.2011, 20:25

ITZver
да не сумму чисел а сумму цифр этих чисел

@NV_art86rus · 25.04.2011, 20:44

вообщем Добавь в прогу ИТЗверя ещё одну переменую и задай ещё одну формулу) Вообщем сделай её до конца сам,там легко!

но а если уж и это трудно пиши позже тебе кину ответ если тебе это дело не срочное!

@Small Lamer · 25.04.2011, 22:20

Pascal

var n,s:longint;
begin
  read(n);
  s:=0;
  while n>0 do
  begin
  repeat
  s:=s+(n mod 10);
  n:=n div 10;
  until n=0;
  read(n);
  end;
  write(s);
  readln;
end.

Добавлено через 1 минуту

Pascal

1	while n>[B]=[/B]0 do

@LeonardoBreslav 0 / 0 / 0 Регистрация: 16.04.2011 Сообщений: 3
		1
	сумма цифр 25.04.2011, 19:40. Показов 712. Ответов 4 Метки нет (Все метки) С клавиатуры вводятся числа, пока не будет введено отрицательное число. Посчитать сумму цифр во всех неотрицательных числах. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	25.04.2011, 20:25	3
	ITZver да не сумму чисел а сумму цифр этих чисел 0

@NV_art86rus 10 / 10 / 1 Регистрация: 23.04.2011 Сообщений: 147
	25.04.2011, 20:44	4
	вообщем Добавь в прогу ИТЗверя ещё одну переменую и задай ещё одну формулу) Вообщем сделай её до конца сам,там легко! но а если уж и это трудно пиши позже тебе кину ответ если тебе это дело не срочное! 0

	25.04.2011, 22:20