Задачи циклические Паскаль:
Составить алгоритмы и программы перевода старинных русских мер длины, торгового и аптекарского веса (счетчик цикла меняется от 1 до 10):
саженей в метры ( 1 сажень равна 2,1366 м)
футов в метры (1 фут равен 0,3048 м)
драхм в граммы (1 драхма равна 3,7325 г)
унций в граммы (1 унция равна 29,86 г)

program sagen_metr;var i: integer;a: real;beginfor i:=1 to 10 do begina:=i*2.1366;writeln (i,' сажень =',a,' м');end;end.program fut_metr;var i: integer;a: real;beginfor i:=1 to 10 do begina:=i*0.3048;writeln (i,' фут =',a,' м');end;end.program drahm_gram;var i: integer;a: real;beginfor i:=1 to 10 do begina:=i*3.7325;writeln (i,' драхм =',a,' г');end;end.program unziy_gram;var i: integer;a: real;beginfor i:=1 to 10 do begina:=i*29.86;writeln (i,' унция =',a,' г');end;end.