Вычислить сумму цифр введенного целого положительного числа

@Leon77 · Регистрация: 28.11.2012

Вычислить сумму цифр введенного целого положительного числа.

@Reveng · 30.11.2012, 19:36

Pascal

uses crt;
var
  x, sum : integer;
 
begin
repeat
Write('Число = ');
Readln(x);
until x > 0;
sum := 0;
while x > 9 do
  begin
  sum := sum + x mod 10;
  x := x div 10;
  end;
sum := sum + x;
Writeln('Сумма: ', sum);  
end.

@Leon77 0 / 0 / 0 Регистрация: 28.11.2012 Сообщений: 5
		1
	Вычислить сумму цифр введенного целого положительного числа 30.11.2012, 19:31. Показов 4718. Ответов 1 Метки нет (Все метки) Вычислить сумму цифр введенного целого положительного числа. 0

Опции темы

Вычислить сумму цифр введенного целого положительного числа

Решение