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

Question

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

Answer 1

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

Answer 2

Var kg,tn:real;
begin
write('введите вес в килограммах ');
readln(kg);
writeln(kg,' кг. = ',kg/1000,' т.');
end.