Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / function / Program4
.pas uses crt;
var a:longint;
max: integer;
// функция на поиск максимальной цифры в числе
function maximal:byte;
begin
max:=0;
while a>0 do begin
if a mod 10 > max then max:=a mod 10;
a:=a div 10;
end;
maximal:=max
end;
begin
write('Введите число: '); read(a);
writeln('Максимальная цифра=',maximal);
end.
var a:longint;
max: integer;
// функция на поиск максимальной цифры в числе
function maximal:byte;
begin
max:=0;
while a>0 do begin
if a mod 10 > max then max:=a mod 10;
a:=a div 10;
end;
maximal:=max
end;
begin
write('Введите число: '); read(a);
writeln('Максимальная цифра=',maximal);
end.
Соседние файлы в папке function