Задано два числа.Перевірити, чи більше з чисел є кратним меншому числу.Якщо так, то вивести частку від ділення більшого на менше, якщо ні-повідомлення про не кратність чисел

// Pascal

var a, b, tmp: integer;

begin

a := 15;

b := 5;

if a < b then

begin

tmp := a;

a := b;

b := tmp;

end;

if a mod b = 0 then

writeln(a div b)

else

writeln('Числа не кратные');

end.

Для начала найдем, сколько информации несет каждый символ: мощность алфавита 256, находим количество информации по формуле N = 2i, где N - мощность алфавита, i - количество информации в битах, которое несет каждая буква.

256 = 28, значит каждый символ несет 8 бит информации, или 1 байт.

2. В одной строчке 70 символов, значит, 70 * 1 = 70 байт несет каждая строчка.

3. На одной странице 30 строк, поэтому 30 * 70 = 2100 байт несет каждая страница.

5. Пять страниц текста содержит 2100 * 5 = 10500 байт информации.

ответ: 10500 байт.

1

Объяснение:

Я ответил бы, что 1 раз. Если логически подумать, то все цмклы реализуют обход буквой Г этого квадрата и заполняют ячейки. То есть ответ 3 совсем маловероятен. Смущает, что написано, что стартовая позиция - верхний левый угол. Там двигатся влево некуда. То есть цикл там вообще не выполнится, но в ответах 1, 2 или 3. если взять стартовую позицию беленькую, то там как раз 1 цикл проходит. Но! Если посмотреть выше, то он вложен в другой цикл, который выполняется 4 раза, то есть внутриней цикл выполнится 4 раза. Отвечай 1. Мне самому уже интересно лоханулся или нет.