var
m,v,s,a,d,mm: real;
begin
writeln ('задай количество миль');
v:=m*7;writeln (m,'миль=',v,'верст');s:=v*500;writeln (m,'миль=',s,'саженей');a:=s*3;writeln (m,'миль=',a,'аршинов');d:=a*28;writeln (m,'миль=',d,'дюймов');mm:=d*25.4;writeln (m,'миль=',mm,'миллиметров');end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
m,v,s,a,d,mm: real;
begin
writeln ('задай количество миль');
v:=m*7;
writeln (m,'миль=',v,'верст');
s:=v*500;
writeln (m,'миль=',s,'саженей');
a:=s*3;
writeln (m,'миль=',a,'аршинов');
d:=a*28;
writeln (m,'миль=',d,'дюймов');
mm:=d*25.4;
writeln (m,'миль=',mm,'миллиметров');
end.