Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Известно,что 1 миля=7 верст,1 верста=500 сажений,1 сажень=3 аршина,1 аршина=28 дюймов,1 дюйм=25,4мм.Пользуясь этой информацией,состаьте линейный алгоритм перевода растояния х миль в километры

Ответ оставил Гость

Const mile = 7;
const verst = 500;
const saj = 3;
const arsh = 28;
const dm = 25.4;
const mm = 1000000;

var x, km: real;

begin

write(Введите число для перевода из миль в километры: );r
eadln(x);
km := ( x * mile * verst * arsh * saj * dm ) / mm;
writeln(x, -> , km);
end.