Напишите программы : 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.

закодированный текст: byck is my dog.

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.