Question

Составить таблицу перевода метров в ярды если 1м=0,91 ярды на [1;20]
В ПАСКАЛЕ,ну программой записать

Answer 1

var i:integer;
begin
  write('|МЕТРЫ|');
  for i:=1 to 20 do
  write(i:6,'|');
  writeln;
  write('|ЯРДЫ |');
  for i:=1 to 20 do
  write(i*0.91:6,'|');
  writeln;
end.