Показать сообщение отдельно
  #14  
Старый 14.04.2011, 19:23
ChinYan ChinYan вне форума
Тыкаю клавиши
 
Регистрация: 13.07.2009
Сообщения: 804
Версия Delphi:
Репутация: 48633
По умолчанию

Код:
var
i,a:integer;
begin
a:=1;
for i:=1 to 100500 do
begin
writeln('-1^',i,' = ',a);
a:=a*(-1);
end;
readln;
end.
Ответить с цитированием