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 -
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Не работает цыкл |
FYzeST |
Сообщение
#1
|
|||
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: 0 |
Подскажите что не так?? цыкл взят из книги Фаронова. Он должен считать суму от 1 до N но почему то при исполнении выводит тоже число что задаю в N
var
Сообщение отредактировано: Lapp - |
|||
Текстовая версия | 5.05.2024 12:02 |