Question

Написать программу перевода килограмм в тонны. В программе pascalABC.

Answer 1

uses crt;
var k,t:real;
begin
 clrscr;
write('Введите килограммы: ');
Readln(k);
t:=k/1000;
Writeln('Это составляет ',t,'  тонн');
end.