Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика Практика / 24
.pas Program praktika24;
Uses CRT;
Var n, min, max, k: Integer;
Begin
Write('Введите число: ');
ReadLn(n);
min:=n;
max:=0;
While (n>0) Do
Begin
If (n mod 10<min)
Then min:=n mod 10;
If (n mod 10>max)
Then max:=n mod 10;
n:=n div 10;
End;
WriteLn;
WriteLn('максимальная цифра: ', max,' минимальная цифра: ', min);
ReadLn;
End.
Uses CRT;
Var n, min, max, k: Integer;
Begin
Write('Введите число: ');
ReadLn(n);
min:=n;
max:=0;
While (n>0) Do
Begin
If (n mod 10<min)
Then min:=n mod 10;
If (n mod 10>max)
Then max:=n mod 10;
n:=n div 10;
End;
WriteLn;
WriteLn('максимальная цифра: ', max,' минимальная цифра: ', min);
ReadLn;
End.
Соседние файлы в папке Информатика Практика