Question

Написать программу пересчета расстояния из верст в километры( 1 верста-это 1066,8 м).
Пересчет расстояния из верст в километры.
Введите расстояние в верстах-100
100 верст - это 106,68 км.

Answer 1

var v,k:real;
begin
write ('Вёрсты: ');
readln (v);
k:=v*1.0668;
write ('КМ: ',k:0:2);
end.