|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
|
Опции темы | Поиск в этой теме |
17.02.2010, 18:39
|
#11 |
|
Новичок
Джуниор
Регистрация: 17.02.2010
Сообщений: 0
|
Складання розгалужених програм мовою Pascal
Задано натуральное число k. Найти к-тую цифру последовательности 1101001000100001...
|
|
|
|
17.02.2010, 18:46
|
#12 |
|
Новичок
Джуниор
Регистрация: 10.02.2010
Сообщений: 1
|
Если в Паскале надо, то могу сделать за небольшое вознаграждение.
Пиши на мыло taras.rv_18@mail.ru или в аську 580252184 Программка очень простая. И так могу выложить текст программы (если я правильно понял условие). uses crt; label 1; var i,j:integer; n,k:longint; a:array[1..60000] of byte; begin clrscr; readln(k); n:=1; a[n]:=1; for i:=1 to 400 do begin n:=n+1; a[n]:=1; for j:=1 to i do n:=n+1; if n>=k then goto 1; end; 1: writeln(a[k]); readln end. Последний раз редактировалось NBAskel; 17.02.2010 в 19:43. |
|
|
|
|
17.02.2010, 19:47
|
#13 |
|
Новичок
Джуниор
Регистрация: 16.06.2007
Сообщений: 0
|
ICQ - 324-783-266
Сделаю быстро, качественно, недорого и без Goto  Предоплаты не требую!!! |
|
|
|
|
17.02.2010, 21:33
|
#14 |
|
Пользователь
Регистрация: 26.09.2009
Сообщений: 10
|
308895241 быстро и без вазелина
ICQ: 308 895 241
программы под заказ 
|
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Даны натуральные числа n,p, целые числа a1 , ... ,an. | Наталья111 | Фриланс | 10 | 09.11.2010 20:09 |
| вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m | Sparky | Помощь студентам | 2 | 22.11.2009 21:59 |
| Даны натуральные числа m,n. Посчитать сумму m последнего числа n. | лялька | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 25.12.2008 15:22 |
