Дано расстояние в километрах, вывести сколько это метров и сантиметров Pascal

Question

Информатика

Фадей

2 мая, 04:59

Дано расстояние в километрах, вывести сколько это метров и сантиметров Pascal

+2

Ответы (1)

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

Киряша · Answer 1

Var

k: real;

begin

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

readln (k) ;

writeln ('Расстояние в метрах ') ;

writeln (k * 1000) ;

writeln ('Расстояние в сантиметрах ') ;

writeln (k * 100000) ;

end.