Тема: проблемы с Double
Показать сообщение отдельно
  #9  
Старый 30.09.2011, 16:10
FlyInDream FlyInDream вне форума
Прохожий
  
Регистрация: 10.08.2011
Сообщения: 24
Репутация: 10
По умолчанию
Код:
...
a1 := (2*L/X + (i * (X - 1)))/2;
for j := 1 to X do begin
Write(a1, ' ');
a1 := a1 - i;
end;
Ответить с цитированием