50

Задача: найти самую большую цифру целого числа. В турбо паскаль.

21 февраля 2023

Задача: найти самую большую цифру целого числа. В турбо паскаль.

категория: информатика



66

Program proga; var a,c,b: integer; Begin readln (a); c: =0; while (a>0) dobeginb: =a mod 10; a: =a div 10; if b>c thenc: =b; end; writeln (c); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...