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

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

  • Uses crt;
    var k,t:real;
    begin
    clrscr;
    write(Введите килограммы:);
    Readln(k);
    t:=k/1000;
    Writeln(Это составляет,t, тонн);
    end.
  • Var kg,tn:real;
    begin
    write(введите вес в килограммах);
    readln(kg);
    writeln(kg,кг. = ,kg/1000, т.);
    end.
Print Friendly

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *