Написать программу, которая выводит на экран таблицу стоимости, например, яблок в диапазоне от 100г до 1кг с шагом 100 паскаль

Конечно! Давайте напишем программу на Pascal, которая будет выводить таблицу стоимости яблок в диапазоне от 100 грамм до 1 килограмма с шагом 100 грамм. Предположим, что стоимость 1 кг яблок составляет 30 рублей. Тогда программа будет выглядеть следующим образом: ```pascal program ApplePriceTable; uses crt; var weight: Integer; pricePer100g: Real; begin pricePer100g := 30 / 10; // Стоимость 100 грамм (30 рублей за 1 кг) writeln('Таблица стоимости яблок:'); writeln('Вес (г) | Стоимость (руб.)'); writeln('----------------------------'); for weight := 100 to 1000 do begin writeln(weight:5, ' | ', (weight div 100) * pricePer100g:10:2); end; readln; // Ожидаем нажатия клавиши для завершения программы end. ``` ### Объяснение программы: 1. **Объявление переменных**: Мы объявляем переменные `weight` для учета веса и `pricePer100g` для расчета стоимости 100 грамм яблок. 2. **Цикл `for`**: Используем цикл от 100 до 1000 с шагом 1 (мы будем считать вес в граммах), чтобы рассматривать все значения. 3. **Расчет стоимости**: Для каждого веса вычисляется стоимость, умножая цену за 100 г на количество сотен граммов (с помощью `weight div 100`). 4. **Форматированный вывод**: Форматированный вывод результатов с выравниванием. Таким образом, программа выводит таблицу стоимости яблок от 100 г до 1 кг. Надеюсь, это поможет вам в вашем обучении программированию на Паскале!