Не работает цыкл Опции

[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.

М

Тэги!!

Сообщение отредактировано: Lapp - 25.06.2011 2:02

[TarasBer]

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

Сообщение отредактировано: TarasBer - 24.06.2011 17:14

[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; .