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

Question

Информатика

Сергуля

4 апреля, 01:56

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

+2

Ответы (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.