Question

Помогите плииииииисссс​

Answer 1

Ответ:

Pascal:

var L:real;

begin

  readln(L);

  writeln('КМ: ', L/1000000:0:2);

  writeln('М: ', L/1000:0:2);

  writeln('СМ: ', L/10:0:2);

  writeln('ММ: ', L);

end.