Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.11.2013, 19:29   #21
salauat
Пользователь
 
Регистрация: 22.11.2013
Сообщений: 19
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
Код:
var s:string;
    d,sum:integer; 
    i,k:integer;
begin
d:=7;sum:=10;
s:='';
k:=1;
while sum>9 do
begin
sum:=sum-9;
s:=s+'9';
k:=k+1;
end;
s:=s+chr(sum+ord('0'));
k:=k+1; 
for i:=k to d do
s:=s+'0';
writeln(s);
end.
но разобрался в этой, понял как работает chr
salauat вне форума Ответить с цитированием
Старый 24.11.2013, 19:29   #22
salauat
Пользователь
 
Регистрация: 22.11.2013
Сообщений: 19
По умолчанию

составьте пожалуйста программу, у меня что то не получается.

Вася записал последовательность различных натуральных чисел (не превышающих 1000). Петя задумал натуральное число K и сказал его Васе. Вася составил новую последовательность, образовав ее из первоначальной следующим образом: он либо вычел из каждого элемента первоначальной последовательности, либо прибавил к этому элементу число K, а образовавшиеся при этом числа расположил в произвольном порядке. помогите Пете выяснить, что именно сделал Вася с каждым из чисел исходных последовательности.
Входные данные:
в первой строке - количество чисел в последовательности и число k(каждое не более 50). во второй строке - исходная последовательность, в третьей - полученная.
Выходные данные:
Символы "+" или "-" ( по одному на каждое число последовательности).
пример входных данных:
3 1
132
212
Пример выходных данных:
+--

я бы его составил, но для меня загвоздкой является этот факт:" а образовавшиеся при этом числа расположил в произвольном порядке".
salauat вне форума Ответить с цитированием
Старый 01.12.2013, 18:32   #23
salauat
Пользователь
 
Регистрация: 22.11.2013
Сообщений: 19
По умолчанию

сходил я на эту олимпиаду, 0 баллов.
у 1 место 47 баллов, у 4 места 3 балла. с одной программы можно до 100 баллов получить. было составить 5 задач. составил 2 программы, проверил на примеры которые даются, сам придумал разные случаи, где может не получиться, все норм, оба программы работали на ура. так вот загвоздка, проверяли программой от делфии( или для делфи), а люди сам не проверяли. я собрал программу, на входной и выходной файл поставил расширение .txt как полагается в паскале, но оказывается этого делать было нельзя, в делфи она так не работает, из-за чего я за обе задачи получил по нулям. в примечаниях было что нельзя ставить, но там без объяснений, и я внимания на это не обратил, работает, и все. обидно, думаю с рабочих программ заработать по 24 балла более чем реально. обламали меня, теперь на республику получается не еду, а хотелось

Последний раз редактировалось salauat; 01.12.2013 в 18:49.
salauat вне форума Ответить с цитированием
Старый 01.12.2013, 18:36   #24
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Не переживайте. Держите плюс за участие.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 01.12.2013, 18:58   #25
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Я тоже сходил..
У нас 2 этапа.. теория и практика.. кто хорошо написал теорию, проходит на практику.. и 3 год подряд.. я не прохожу эту гребанную теорию!

P.S. Мне плюс не надо.. а вот минус....
Poma][a вне форума Ответить с цитированием
Старый 01.12.2013, 21:32   #26
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
у 4 места 3 балла
*рука_лицо*
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подготовка к региональной олимпиаде New man Помощь студентам 20 14.12.2012 21:01
Гиа 2012 готовлюсь XYLIGAN72 Помощь студентам 10 14.01.2012 15:37
Задачи по олимпиаде Darick Помощь студентам 7 23.12.2011 15:45
Дали детям две задачки на олимпиаде по информатике O_O Каля-маля Помощь студентам 8 10.11.2008 17:29
Как подготовиться к олимпиаде? Kn793 Помощь студентам 16 26.07.2008 12:22