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

Question

Информатика

Галиша

5 августа, 01:38

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

+3

Ответы (1)

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

Романа · Answer 1

Var

k: real;

begin

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

readln (k) ;

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

writeln (k * 1000) ;

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

writeln (k * 100000) ;

end.