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

Валерия555444

29.06.2023 18:40

Информатика

Есть ответ 👍

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

265

463

Посмотреть ответы 2

Ответы на вопрос:

Svasik269

Информатика

4,7(84 оценок)

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.