Ответ(ы) на вопрос:
Гость Ну, если правильно понял условие то может получиться так:
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 месте справа
Не нашли ответ?
Похожие вопросы