Вопрос по информатике:
Дано натуральное число. Требуется разделить запятыми тройки его цифр (считая справа). Вводится одно натуральное число, не превышающее 10^100. Вывести то же число, разделяя тройки цифр запятыми.
Пожаловаться
- 25.12.2016 22:49
- Информатика
- remove_red_eye 9597
- thumb_up 23
Ответы и объяснения 2
Var s: string;
i: integer;
begin
write('число: '); readln(s);
i:=length(s)-2;
repeat
insert(',',s,i);
i:=i-3;
until i<3;
writeln('новое число: ',s);
end.
число: 123456789654321987
новое число: 123,456,789,654,321,987
i: integer;
begin
write('число: '); readln(s);
i:=length(s)-2;
repeat
insert(',',s,i);
i:=i-3;
until i<3;
writeln('новое число: ',s);
end.
число: 123456789654321987
новое число: 123,456,789,654,321,987
Пожаловаться
- 26.12.2016 07:42
- thumb_up 14
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
Примеры
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
Примеры
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
Пожаловаться
- 27.12.2016 00:44
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы