Написать программу для пересчета из миль в километры (1 миля=1.609344 км). Расстояние в километрах K вводится из программы.

Question

Информатика

Пашуня

16 июня, 14:02

Написать программу для пересчета из миль в километры (1 миля=1.609344 км). Расстояние в километрах K вводится из программы.

+5

Ответы (1)

Знаете ответ?

Христиана · Answer 1

Var

k: integer;

m: real;

begin

writeln ('Введите расстояние в километрах') ;

read (k) ;

m : = k * 0.62;

writeln (k, ' км = ', m:0:2, ' миль') ;

readln;

end.