Задание:
ПОМОГИТЕ ПОЖАЛУУЙСТА ОЧЕНЬ СРОЧНОО! НАПИШИТЕ ПРОГРАММЫ:
Решение:
var i, n: integer; price: real; begin n: =20; price: =20,4; for i: =1 to n do writeln ('Стоимость ', i: 3, ' ед. Товара составляет ', price*i: 8:2, ' руб.'); end. //вторая задачаvar i, f, n: integer; begin f: =453; n: =10; writeln ('фунты граммы'); for i: =1 to n do writeln (', i: 2, i*f: 11); end. //третья задачаvar i, n: integer; k: real; begin n: =20; writeln ('Введите курс '); readln (k); writeln ('доллары рубли'); for i: =1 to n do writeln (', i: 2, i*k: 13:2); end.
Знаете другой ответ?