var
i, n, s : integer;
begin
write('N=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+1;
writeln('summa=',s);
readln
end.
| М | Тэги!! |
Сообщение отредактировано: Lapp -
 Не работает цыкл |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| FYzeST |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация:  0   |
Подскажите что не так?? цыкл взят из книги Фаронова. Он должен считать суму от 1 до N но почему то при исполнении выводит тоже число что задаю в N
Сообщение отредактировано: Lapp - |
   |
 
|
Сообщений в этой теме
FYzeST Не работает цыкл 24.06.2011 17:00
TarasBer Потому что:
1. "цикл" пишется через … 24.06.2011 17:13 FYzeST Ах вот что.. спасибо..)))
А по поводу напис… 24.06.2011 17:30 -andriano- Так в украинском языке нет буквы "ы". 24.06.2011 17:59 FYzeST Дак я же по руски писал.... )) ну короче это не … 24.06.2011 18:17
Unconnected Заключи эти две команды в операторные скобки begin… 25.06.2011 1:51  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 13.12.2025 10:59 |
Связь с администрацией: bu_gen в домене octagram.name