Помогите по Паскалю срочно! Нужно написать код в паскале который будет делить число на разряды к примеру. ввод 12345678 вывод 12,345,678
220
ОТВЕТЫ
Var
s:string;
i:integer;
begin
Write(Введите натуральное число: ); Readln(s);
i:=Length(s)-2;
while igt;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 igt;1 do begin Insert(,,s,i); i:=i-3 end;
Writeln(s)
end.
Пример
Введите натуральное число: 12345678
12,345,678
20
Отв. дан
Moshicage
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - История
Balladonn
Выберите правильную форму, поставьте необходимые окончания. Одет... по форме, ...
2018-09-23 00:00:00
Денис
Подскажите как пожалуйста с английским 2 и3 предложение ...
2018-09-23 00:00:00
Thorgann
Напишите сочинение на тему: "Хорошо или плохо, что мир ...
2018-09-23 00:00:00
Bandilace
Скільки та які твори вийшли до першого видання "Кобзаря"? ...
2018-09-23 00:00:00