Преобразование числа в строку - Pascal
Формулировка задачи:
Здравствуйте.
Мне нужно преобразовать число в строку, чтобы каждые три символа отделялись запятой.
Например 1000 в 1,000 ; 1000000 в 1,000,000 и т.д.
Помогите, пожалуйста.
Решение задачи: «Преобразование числа в строку»
textual
Листинг программы
var
n: Longint;
i, k: Integer;
s: String;
begin
ReadLn(n); Str(n,s);
i:=Length(s)-2; k:=1+Ord(n<0);
while i>k do begin Insert(',',s,i); Dec(i,3); end;
WriteLn(s);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д