Заполнить пропуски в программке так, чтобы программка исполняла задачку:program P11;

Заполнить пропуски в программке так, чтоб программка исполняла задачку:
program P11; Определение наибольшей и малой числа в
числе
var a:integer;
function F(a:integer):integer;
var Max,x:integer;
begin
Max:=a mod 10;
while agt;0 do begin
x:=a mod 10;
a:=a div 10;
if xgt;Max then Max:=x;
end;
F:=Max;
end; F
function F1_____________________
_______________________________
begin
________________________________________
________________________________________
________________________________________
________________________________________
end; F1
begin
Write('Введите число-');
_____________________________________
_____________________________________
Writeln('Малая цифра в числе: ',F1(a));
end.

Задать свой вопрос
1 ответ

var a:integer;

function F(a:integer):integer;

var Max,x:integer;

begin

Max:=a mod 10;

while agt;0 do begin

x:=a mod 10;

a:=a div 10;

if xgt;Max then Max:=x;

end;

F:=Max;

end; F

function F1(a:integer):integer;

var Min,x:integer;

begin

Min:=a mod 10;

while agt;0 do begin

x:=a mod 10;

a:=a div 10;

if xlt;Min then Min:=x;

end;

F1:=Min;end; F1

begin

Write('Введите число-');

readln(a);

Writeln('Наибольшая цифра в числе: ',F(a));

Writeln('Минимальная цифра в числе: ',F1(a));

end.

Пример:

Введите число-31842

Наибольшая цифра в числе: 8

Малая цифра в числе: 1

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт