Задание:
Помоги пожалуйста! Задача для составления программы: Вывести на экран таблицу перевода 1,2… n $ в рубли (по текущему курсу).
Решение:
var n, i: integer; factor: real; begin write ('Введите n и текущий курс '); readln (n, factor); for i: =1 to n do writeln (i, 'p.=', factor*i: 5:2, '$'); end.
Знаете другой ответ?