uses crt; var a,Max,x:integer; begin clrscr; Write('Введите число: '); readln(a); Max:=a mod 10; while a>0 do begin x:=a mod 10; a:=a div 10; if x>Max then Max:=x; end; Writeln('Максимальная цифра: ',Max); readln; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
