номер 10 (страница 119) гдз по информатике 11 класс учебник Босова, Босова

1)
var
a : array[1..5] of Integer;
n, i: integer;
begin
writeln('Введите число n ‹= 32 000: ');
readln(n);
i :=0;
while n > 0 do begin
Inc(i);
a[i] := n mod 10;
n := n div 10;
write(a[i]:5);
end;
end.

2)
var
n: integer;
min,max: integer;
begin
writeln('Введите число n ‹= 32 000: ');
readln(n);
max:=0;
min:=9;
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('Максимальная цифра= ',max);
writeln('Минимальная цифра= ',min);
end.

3)
var
n, sum, p: integer;
begin
write('Введите число n ‹= 32 000: ');
readln(n);
sum := 0;
p := 1;
while n > 0 do begin
sum := sum + n mod 10;
p := p * (n mod 10);
n := n div 10
end;
writeln('Сумма его цифр = ', sum);
writeln('Произведение его цифр = ', p);
end.