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

ответ: 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 (c< > 0) then

if (c> d) then

d: =c else

if (c=d) then

k: =k+1;

a: =a div 10;

end;

writeln (d,' ',k);

end.

program xxx;

      var i : integer;

                a : array[1..15] of real;                   n : real;   begin    randomize;     for i: =1 to 15 do        a[i]: =random(20)-20;  

    writeln('исходный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    n: =a[1];

    a[1]: =a[15];

    a[15]: =n;

    writeln('полученный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    readln

end.

всего известно до 5000 разных египетских иероглифов, однако в каждую эпоху использовалось не более 700-800. среди египетских иероглифов различают: 1) одноконсонантные знаки (около 30) - обозначавшие согласные звуки египетского языка; 2) двух-трехконсонантные знаки для фонетической передачи морфем; 3) идеограммы – для обозначения целых слов; 4) детерминативы – (непроизносимые) идеографические знаки, уточняющие значения слов.