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

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.

перенос материалов (перенос деталей и заготовок от станка к станку или с конвейера на конвейер, штабелирование, работа с поддонами, укладка деталей в тару и т. п.);

обслуживание станков и машин (загрузка и разгрузка станков, удерживание обрабатываемой детали);

дуговая и точечная сварка;

литьё (особенно литьё под давлением);

ковка и штамповка;

нанесение покрытий распылением;

другие операции обработки (сверление, фрезерование, клёпка, резка водяной струёй, обдирка, очистка, шлифовка, полировка);

сборка механических, электрических и электронных деталей;

контроль качества продукции и др.