егор рудев
Профи
(559)
2 месяца назад
program ConvertInchesToMillimeters;
var
inch: integer;
mm: real;
CM_PER_INCH: real;
begin
CM_PER_INCH := 2.54;
writeln('Inches', #9, 'Millimeters');
for inch := 1 to 60 do
begin
mm := inch * CM_PER_INCH * 10;
writeln(inch, #9, mm:0:1);
end;
end.