ПОМОГИТЕ ПОЖАЛУУЙСТА ОЧЕНЬ СРОЧНОООО!!! НАПИШИТЕ ПРОГРАММЫ : 1)Одна штука некоторого...

Question

ПОМОГИТЕ ПОЖАЛУУЙСТА ОЧЕНЬ СРОЧНОООО!!!
НАПИШИТЕ ПРОГРАММЫ :

1)Одна штука некоторого товара стоит 20,4 руб. Напечатать таблицу стоимости 2, 3, …, 20 штук этого товара.

2) Напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 1, 2, …, 10 фунтов (1 фунт = 453 г).
3)

Напечатать таблицу перевода 1..20 долларов США в рубли по текущему курсу. Курс вводится с клавиатуры.

Answer 1

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.