Помощь - Поиск - Пользователи - Календарь
Полная версия: Не работает цыкл
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
FYzeST
Подскажите что не так?? цыкл взят из книги Фаронова. Он должен считать суму от 1 до N но почему то при исполнении выводит тоже число что задаю в N


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.


М
Тэги!!

TarasBer
Потому что:
1. "цикл" пишется через "и", а не через "ы".
2. "s:=s+i" пишется через "i", а не через "1".
FYzeST
Ах вот что.. спасибо..)))

А по поводу написания слова, извините ошибочка вышла.. да еще и два раза... я просто с Украины
-andriano-
Так в украинском языке нет буквы "ы".
FYzeST
Дак я же по руски писал.... )) ну короче это не важно.

вот еще вопрос... можно ли что бы в цыкле выполнялось несколько действий....?

var
s :integer;
begin
writeln('dwd');
s:=0;
while s<>5 do
s:=s+1;
writeln(s);


readln
end.


в ходе цыкла выполняется строчка s:=s+1; но я хочу что бы выполнялись: s:=s+1;
writeln(s);


как реализовать????
Unconnected
Заключи эти две команды в операторные скобки begin-end; .
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.