|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.02.2012, 13:51 | #1 |
Новичок
Джуниор
Регистрация: 26.02.2012
Сообщений: 1
|
задачу дорешать нужно!
Для данного числа N вывести все элементы последовательности: {x:x<N,
x перепендукулярен N} Program s10; uses crt; var i,n,s:integer; Begin write('Ввести чилсло N = '); readln(n); i:=1; repeat s:=2*i-1; writeln(s:3); i:=i+1; until (s>=n-1); End. |
26.02.2012, 16:51 | #2 | |
a.k.a. Skull
Форумчанин
Регистрация: 17.11.2009
Сообщений: 963
|
Цитата:
Все тривиальное просто
|
|
26.02.2012, 17:08 | #3 | |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal. Помогите дорешать задачу (тема - ряды) | -SG- | Помощь студентам | 3 | 16.10.2009 16:50 |
помогите дорешать задачу | pavelstraut | Общие вопросы C/C++ | 4 | 23.07.2009 16:53 |
Помогите дорешать задачу на While | Andrux | Помощь студентам | 12 | 29.12.2008 21:24 |