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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
