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

10. Дано натуральное десятичное число n ‹= 32 000. Напишите программу, в которой:

1) из цифр данного числа формируется одномерный целочисленный массив;

2) определяются наибольшая и наименьшая цифры данного числа;

3) находятся сумма и произведение цифр, образующих данное число.

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.

11. Требуется упорядочить по весу в порядке неубывания n непрозрачных банок с чаем, имея в своём распоряжении только чашечные весы без гирь. Опишите возможный алгоритм решения этой задачи.

Взвешиваем две банки, тяжелую из них размещаем справа, легкую слева.

Теперь берем тяжелую банку и сравниваем со следующей банкой, если тяжелая банка опять оказалась тяжелой, то ее размещаем справа, а слева от нее размещаем легкую и сравниваем ее с предыдущей банкой.

Если тяжелая банка оказалось тяжелее, то ее размещаем справа, а более легкую размещаем в центр, в результате у нас на столе три банки самая легкая, средняя, тяжелая.

Таким образом можно взвешивать банки.