Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
18
Добавлен:
04.06.2015
Размер:
415 б
Скачать
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.




Соседние файлы в папке Информатика Практика