1. найти сколько байт,бит. мороз и солнце - день чудесный. 2. в книге 40 страниц, на странице 80 строк,в - id1004416720210506 от mikrob22 06.05.2021 09:14

Question

Информатика: 1. найти сколько байт,бит. мороз и солнце - день чудесный. 2. в книге 40 страниц, на странице 80 строк,в строке 60 символов. подсчитать количество бит,байт,кбайт. 3.мощность алфавита 32 символа.найти информационный обьем. 4.мощность алфавита 256 символов.найти информационный обьем. 5.в алфавите 20 символов,подсчитать мощность.

mikrob22 · Accepted Answer

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;

После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.

MOGZ ответил