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

[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 - 24.06.2011 22:02

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

как реализовать????