Решить данную задачу в Паскале через тип integer. Задача: Известна масса тела в...

Question

Решить данную задачу в Паскале через тип integer.

Задача: Известна масса тела в килограммах. Определить сколько целых тонн содержится в данном числе.

Answer 1

uses crt;

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