var a:integer;
function F(a:integer):integer;
var Max,x:integer;
begin
Max:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x>Max then Max:=x;
end;
F:=Max;
end; {F}
function F1(a:integer):integer;
var Min,x:integer;
begin
Min:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x<Min then Min:=x;
end;
F1:=Min;end; {F1}
begin
Write('Введите число-');
readln(a);
Writeln('Максимальная цифра в числе: ',F(a));
Writeln('Минимальная цифра в числе: ',F1(a));
end.
Пример:
Введите число-31842
Максимальная цифра в числе: 8
Минимальная цифра в числе: 1
1.
begin
for var i := 1 to 9 do begin
for var j := 0 to 9 do write(i*10+j, ' ');
writeln;
end;
end.
2.
var
n, s, p : integer;
begin
write('введите число n=');
readln(n);
p := 1;
while n > 0 do begin
s += n mod 10;
p *= n mod 10;
n := n div 10;
end;
writeln('сумма ', s);
writeln('произведение ', p)
end.
3.
var
a : integer;
begin
write('введите 6-и значное число: ');
readln(a);
if (a mod 10 = a div 100000) and ((a div 10) mod 10 = (a div 10000) mod 10) and ((a div 100) mod 10 = (a div 1000) mod 10) then writeln('палиндром') else writeln('нет');
end.
