Решить данную в паскале через тип integer. : известна масса тела в килограммах. определить сколько целых тонн содержится в данном числе.

ответ:

на мое мнение в антарктиде   бывает интересно. помимо разнообразия разных видов пингвинов и других обитателей зимнего края, я также хочу посетить станцию академик вернадский и посмотреть как там живут и проводят свои   опыты люди

uses crt;

vara, b, c: integer; st : string; beginreadln (a); str (a, st); if length (st)< =3 then writeln (0 ,' ton') else begin b: =a div 1000; writeln (b, ' ton'); end; readkey ; end.

зачем ?

расширить гругозор и понаблюдать за уникальной фауной в естественной среде.

в антарктиде можно увидеть неповторимою фауну - пингвинов, таких как: королевский, императорский, антарктический, адели, папуанский   пингвин. китов - синий, южный полосатик, косатка. тюленей - уэдделла, росса, крабоед. рыб - мраморная нототения, антарктический клыкач, белокровная щука. птиц - антарктический буревестник, снежный буревестник, капский голубок.

и самые большие в мире покровные ледники   - росса, ронне-фильхнера.

и самое сухое место на планете - долины мак-мердо, где не было осадков около двух миллионов лет !