с клавиатуры вводится четырехзначное число. необходимо подсчитать сумму цифр этого числа
Answers & Comments
znmen22
Var sum: integer; number: longint; begin sum := 0; write('Введите число: '); readln(number);
0 votes Thanks 1
vladmor
Var n,s:integer; begin write('Введите число '); readln(n); while n<>0 do begin s:=s+ n mod 10; n:=n div 10; end; writeln('Сумма цифр в числе ',s); end.
Тестовое решение: Введите число 5342 Сумма цифр в числе 14
Answers & Comments
number: longint;
begin
sum := 0;
write('Введите число: ');
readln(number);
n,s:integer;
begin
write('Введите число ');
readln(n);
while n<>0 do begin
s:=s+ n mod 10;
n:=n div 10;
end;
writeln('Сумма цифр в числе ',s);
end.
Тестовое решение:
Введите число 5342
Сумма цифр в числе 14