IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Подскажите, как решить задачу
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Николай

Репутация: -  0  +


Дана задача:

Дано натуральное число n. Получить символьное представление n в виде последовательности цифр и пробелов, отделяющих группы по три цифры, начиная справа. ( например, если n=1234567, то должно получиться 1 234 567).

Знаю как решить эту задачу без использования динамической памяти:

var N: Longint;
S: String;
D: Word;
I: Integer;
begin
ReadLn(N);
while N > 0 do begin
D := N mod 10;
N := N div 10;
S := Char(D+Ord('0')) + S;
I:=I+1;
if I = 3 then begin
S := ' ' + S;
I := 0;
end;
end;
WriteLn(S);
readln;
end.

Помогите пожалуйста решить эту задачу с использованием динамической памяти. Заранее благодарен.

1 поменя название темы
2 пользуйся тегами
klem4
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 21:50
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name