с информатикой!
Информатика:
1.Доклад на тему «Алгоритмика» (кем и когда создана, для каких целей, как используется)

1. Составьте варианты поисковых запросов на интересующую) вас тему в интернето и в библиотеке.

2. Постарайтесь классифицировать полученные данные по степени

важности (приоритетности) для последующей проработки: какими источниками заниматься в первую очередь, во вторую и т. п.

3. Выделите информацию, не содержащую противоречий и неподлежащую сомнению.

4. Обобщите данные, которые трактуются неоднозначно, на которые существуют противоречивые точки зрения.

5. Определите, на какие фундаментальные знания вы опираетесь при проверке данных в первую очередь,

6. Составьте архив нужных файлов.​​Объяснение:

Var k, s, i: integer;beginreadln(k);s:=k mod 10;i:=0;while k<>0 do begin
k:=k div 10;
if s<k mod 10 then begins:=k mod 10;i:=0;end;if s=k mod 10 theni:=i+1;end;writeln(i);end.
В переменной k вводим число, в переменной s храним максимальную цифру, в переменной i подсчитываем вхождение максимальной цифры в число

var k, s, i: integer;beginreadln(k);//вводим числоs:=k mod 10;//предполагаем что последняя цифра - максимальнаяi:=0;// инициализируем счетчик нулемwhile k<>0 do begin//цикл идет до тех пор пока не закончатся цифры в k
k:=k div 10;// отбрасываем цифру от числа
if s<k mod 10 then //если s < последней цифры kbegins:=k mod 10;//то меняем нашу максимальную цифру на новуюi:=0;// и сбрасываем счетчикend;if s=k mod 10 then// если цифра в числе равна максимальной цифреi:=i+1;//прибавляем 1 к счетчикend;writeln(i);//выводим количество вхождений максимальной цифры end.