Например пишем 12547 - результат должен быть 12,547 но если есть 521 чтоб также и осталось (не ,521) ...
Вот что я сделал :
Код
program mishpat;
var
number:string;
i,blipsik:integer;
num:longint;
begin
readln(num);
str(num,number);
blipsik:=Length(number) mod 3;
Write(Copy(number,1,blipsik));
for i:=1 to length(number) div 3 do
Write(',',Copy(number,blipsik+1+(i-1)*3,3));
writeln
end.
но эта прога выдаёт ",521" вместо "521"
и ",15,231" вместо "15,231"
что тут надо добавить или поменять чтоб она заработала ?
:-)
