Напечатать таблицу перевода расстояний в дюймах в сантиметры для значений 10, 11, 12, ... 20 дюймов (1 дюйм = 2,54 см) Выход: 10 дюймов = 25,4 см 11 дюймов = 27,94 см ... 20 дюймов = 50,8 см реши просто и понятно сначала с циклом while, а потом с циклом repeat на языке паскаль без деления с нулем и cm

Конечно! Ниже я приведу решения задачи на языке Паскаль, сначала с использованием цикла `while`, а затем с циклом `repeat`. В задачах использована конвертация из дюймов в сантиметры по формуле: 1 дюйм = 2,54 см. Будем последовательно выводить таблицу для значений от 10 до 20 дюймов. --- ### Решение с использованием цикла `while` ```pascal program ConversionWhile; var inches: Integer; centimeters: Real; begin inches := 10; // начинаем с 10 дюймов while inches <= 20 do begin centimeters := inches * 2.54; writeln(inches, ' дюймов = ', centimeters:0:2, ' см'); inc(inches); // увеличиваем значение на 1 end; end. ``` **Объяснение:** - `inches` — переменная для значения дюймов. - Начинаем с 10 и до 20 включительно. - Внутри цикла вычисляем значение в сантиметрах, умножая дюймы на 2.54. - Выводим результат в формате с двумя знаками после запятой. - После каждого шага увеличиваем `inches` на 1 с помощью `inc(inches)`. --- ### Решение с использованием цикла `repeat` ```pascal program ConversionRepeat; var inches: Integer; centimeters: Real; begin inches := 10; // начинаем с 10 дюймов repeat centimeters := inches * 2.54; writeln(inches, ' дюймов = ', centimeters:0:2, ' см'); inc(inches); until inches > 20; end. ``` **Объяснение:** - Логика та же, только цикл `repeat...until`. - Выполняется минимум один раз, а затем проверяется условие (`until inches > 20`). - Когда `inches` становится больше 20, цикл завершается. --- Если нужно, я могу объяснить подробнее любой из этих вариантов!