Вывести стоимость 1000 долларов в рублях - Turbo Pascal

Формулировка задачи:

1. Дана стоимость одного доллара в рублях (А рублей за доллар). Написать программу, которая выведет стоимость 1000 долларов, далее стоимость 900 долларов, 800 и т.д. до 100 долларов.

Код к задаче: «Вывести стоимость 1000 долларов в рублях - Turbo Pascal»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.800 из 5


СДЕЛАЙТЕ РЕПОСТ