Решить данную задачу в Паскале через тип integer.
Задача: Известна масса тела в килограммах. Определить сколько целых тонн содержится в данном числе.
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;
writeln (b, ton); end;
readkey ;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
