Составьте программу, которая вычисляет расстояние между двумя городами в километрах К, приняв, что 5 миль равны 8 км. Город А находится в Х милях от Москвы. Значения А и Х вводятся с клавиатуры.

Question

Информатика

Павел

15 сентября, 21:22

Составьте программу, которая вычисляет расстояние между двумя городами в километрах К, приняв, что 5 миль равны 8 км. Город А находится в Х милях от Москвы. Значения А и Х вводятся с клавиатуры.

+4

Ответы (1)

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

Агафангел · Answer 1

Var a: string;

x, k: Real;

begin

write ('Nazvanie goroda: ') ;

Readln (a) ;

write ('Rasstoyanie ot g. ', a, ' do Moskvy v milyah: ') ;

Readln (x) ;

k : = x*8/5;

Writeln ('Gorod ', a, ' nahoditsya v ', k:4:2, ' km. ot Moskvy.') ;

readln;

end.