Задачи циклические Паскаль:

Составить алгоритмы и программы перевода старинных русских мер длины, торгового и аптекарского веса (счетчик цикла меняется от 1 до 10) :

саженей в метры (1 сажень равна 2,1366 м)

футов в метры (1 фут равен 0,3048 м)

драхм в граммы (1 драхма равна 3,7325 г)

унций в граммы (1 унция равна 29,86 г)

Program sagen_metr;

var i: integer;

a: real;

begin

for i:=1 to 10 do

begin

a:=i*2.1366;

writeln (i,' сажень = ', a,' м') ;

end;

end.

program fut_metr;

var i: integer;

a: real;

begin

for i:=1 to 10 do

begin

a:=i*0.3048;

writeln (i,' фут = ', a,' м') ;

end;

end.

program drahm_gram;

var i: integer;

a: real;

begin

for i:=1 to 10 do

begin

a:=i*3.7325;

writeln (i,' драхм = ', a,' г') ;

end;

end.

program unziy_gram;

var i: integer;

a: real;

begin

for i:=1 to 10 do

begin

a:=i*29.86;

writeln (i,' унция = ', a,' г') ;

end;

end.