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

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

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

> Последовательность
asu2006
сообщение 28.11.2007 12:15
Сообщение #1


Новичок
*

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

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

7,9,13,21,37,..... и т.д
Вот код
uses
crt;
var
n,i:byte;
begin
clrscr;
i:=0;
for n:=7 to 100 do
begin

i:=i+2;
n:=n+i;

if n<100 then

write('n=', n);
break;
end;
readln;
end.



но он почему то выдает одну 9?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
asu2006   Последовательность   28.11.2007 12:15
Lapp   Во-первых, убери Break. Зачем ты его поставил воо...   28.11.2007 12:25
Гость   Во-первых, убери Break. Зачем ты его поставил во...   28.11.2007 12:39
Гость   А почему глюки начинаются когда изменешь 100 на 15...   28.11.2007 13:17
volvo   А в третьих - шаг в последовательности - 2n, гораз...   28.11.2007 12:32
volvo   Потому что: repeat writeln ('n=',n); { ...   28.11.2007 13:26

« Предыдущая тема · Задачи · Следующая тема »
 

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

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 19.07.2025 14:58
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"