Ввести 10-значное число. Найти максимальную цифру в записи числа и его

Ввести 10-значное число. Найти наивысшую цифру в записи числа и его количество вхождений в записи числа (например, в числе 44024 наибольшая цифра 4 и количество его вхождений одинаково 3).

Задать свой вопрос
Анастасия
Какой язык програмирования?
Вячеслав Клец
pascal abc
Кира Крайко
5 минут и все и все будет
1 ответ

Ответ:program сам придумай заглавие;

var a,b,c,d,k:integer;

begin

readln(a);

b:=0;

c:=0;

d:=0;

k:=1;

for b:=0 to 10 do

begin

c:=a mod 10;

if (clt;gt;0) then

if (cgt;d) then

d:=c else

if (c=d) then

k:=k+1;

a:=a div 10;

end;

writeln (d,' ',k);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт