Решить задачи • Найдите сумму цифр числа; • Найдите первую цифру числа; • Поменяйте порядок цифр числа на обратный; • Найдите количество четных цифр числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.
Чтобы получить цифры числа var digit,num:integer; .... while num<>0 do begin digit := num mod 10; num := num div 10; {обработать цифру} end; Вот к примеру для первых двух задач while num<>0 do begin digit := num mod 10; num := num div 10; sum:=sum+digit end; while num<>0 do begin digit := num mod 10; num := num div 10 end; digit - первая цифра
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Решить задачи • Найдите сумму цифр числа; • Найдите первую цифру числа; • Поменяйте порядок цифр числа на обратный; • Найдите количество четных цифр числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.» от пользователя Рита Луговская в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!