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

Question

Информатика

Тюня

11 января, 21:11

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

+3

Ответы (1)

Знаете ответ на вопрос?

Леся · Answer 1

Var

k: integer;

m: real;

begin

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

read (k) ;

m : = k * 0.62;

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

readln;

end.