Заполнить пропуски в программке так, чтобы программка исполняла задачку: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.
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
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.