Var
n:longint;
i,d,dmax:byte;
a:array[0..9] of byte;
begin
Writeln('Введите натуральное число (1..2147483647): ');
Read(n);
for i:=0 to 9 do a[i]:=0;
dmax:=0;
while n>0 do begin
d:=n mod 10;
if dmax<d then dmax:=d;
Inc(a[d]);
n:=n div 10
end;
Writeln('Максимальная цифра ',dmax,' встречается ',a[dmax],' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число (1..2147483647):
235636634
Максимальная цифра 6 встречается 3 раз(а)
Название предмета: книжка.
Какую информацию несёт: она несёт много информации. Во-первых, это физическое тело, которое имеет прямоугольную форму, созданная из жёсткого материала. Запаха книга не имеет, звука не издает.
Эту информацию мне помогли определить органы чувств: зрения, осязания, слуха, обоняния.
В данном массиве находится 4 элемента
1)2
2)-2
3)-2
4)2
16777216 = 2 ^ 24
<span>Размер изображения 800 * 600* 24 = 11520000 бита </span>
<span>время = 11520000/28800 = 400 секунд</span>