Вывести стоимость 1000 долларов в рублях - Turbo Pascal
Формулировка задачи:
1. Дана стоимость одного доллара в рублях (А рублей за доллар). Написать программу, которая выведет стоимость 1000 долларов, далее стоимость 900 долларов, 800 и т.д. до 100 долларов.
Решение задачи: «Вывести стоимость 1000 долларов в рублях»
textual
Листинг программы
var a,i:integer; begin write('1$ - '); readln(a); for i:=10 downto 1 do witeln(i*100,'$=',I*100*a,' rub'); readln end.
Объяснение кода листинга программы
- Переменная
a
инициализируется значением 1. - Выводится строка
1$ -
с помощью функцииwrite
. - Считывается значение переменной
a
с помощью функцииreadln
. - Запускается цикл
for
со счетчикомi
равным 10, и продолжается до тех пор, покаi
меньше или равно 1. - На каждой итерации цикла выводится значение
i*100
(рублей) иI*100*a
(долларов), используя функциюwiteln
. - После завершения цикла выводится символ новой строки
readln
. - Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д