Помогите по Паскалю
срочно!
Нужно написать код в паскале который будет делить число на разряды к примеру.
ввод 12345678
вывод 12,345,678
Ответы на вопрос
Ответил Аноним
0
var
s:string;
i:integer;
begin
Write('Введите натуральное число: '); Readln(s);
i:=Length(s)-2;
while i>1 do begin Insert(',',s,i); i:=i-3 end;
Writeln(s)
end.
Пример
Введите натуральное число: 12345678
12,345,678
s:string;
i:integer;
begin
Write('Введите натуральное число: '); Readln(s);
i:=Length(s)-2;
while i>1 do begin Insert(',',s,i); i:=i-3 end;
Writeln(s)
end.
Пример
Введите натуральное число: 12345678
12,345,678
Новые вопросы