Тема: проблемы с усолвием завершения цикла repeat
Показать сообщение отдельно
  #2  
Старый 07.02.2012, 20:00
Kingcss Kingcss вне форума
Начинающий
  
Регистрация: 20.12.2010
Адрес: Иваново
Сообщения: 100
Версия Delphi: Delphi 7
Репутация: 519
По умолчанию
PHP код:
var
v:real;
i:integer;
s:integer;
begin
s:=15;
v:=15;
for i:=1 to 30 do
begin
v:=v*1.1;
s:=s+v;
end; 
Ответить с цитированием