Question

Специальное задание)

Answer 1

Ну, если правильно понял условие то может получиться так:


var a:integer;
i,max,p:integer;

begin
  max:=0; //заведомо наименьшее значение
  writeln('введите число ');
  readln(a);
  while a<>0 do begin
    if (a mod 10)>max then begin
      max:= a mod 10;
      p:=p+1;
    end;
    a:=a div 10;
  end;
  writeln('max = ',max, ' находится на ', p,' месте справа');
end.

Тестовое решение:
введите число
54674
max = 7 находится на 2 месте справа

Answer 2

готово http://znanija.com/task/17964845

Answer 3

И эту задачку разобрал

Answer 4

Благодарю) Еще? На самом деле у меня еще есть 4 задачи, я их просто загружу все, если захотите можете помочь)

Answer 5

Загружайте, у меня сейчас перерыв. Кто-нибудь обязательно поможет, задачи хоть и интересные но действительно не сильно сложные. Если не будет решений то позже подключусь. Успехов!

Answer 6

Все выложил, если будет интересно, то вот ссылки: 1. http://znanija.com/task/17966459 2. http://znanija.com/task/17966514 3. http://znanija.com/task/17966589 4. http://znanija.com/task/17966639