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