Дано трехзначное число. опредилить сумму его разрядов

Question

Информатика

Милена

16 ноября, 15:13

Дано трехзначное число. опредилить сумму его разрядов

+5

Ответы (1)

Знаете ответ на вопрос?

Леонида · Answer 1

Var N, S : Word;

begin

Write ('Введите 3-хзначное число: ') ; ReadLn (N) ;

S : = 0; while N > 0 do begin S : = S + N mod 10; N : = N div 10; end;

Write ('Сумма цифр = ', S) ; if (S > 9) and (S < 100) then WriteLn (' - двузначное число') else WriteLn (' - не двузначное число') ;

end.