люди!! помогите составить
S=-1+2^1/2-3^1/2+4^1/2....-13^1/2+14^1/2.
пояснения:
запись к примеру 3^1/2 равносильна = корню из 3.

И ещё. Ваапще не понимаю.
Как определить дату следующего дня+квартал(с использованием перечисляемого типа).
Подскажите плиззз +)

1)

   i := 1;
   t := -1;
   s := 0;

   repeat
      s := s+t*sqrt(i);
      t := -t;
      inc(i);
   until i=15;

klem4, ты опять за свое? Ну ведь у каждого вида циклов есть своя область применения!!!

Repeat ... Until прекрасно используется когда НЕизвестно точное число итераций, здесь число итераций известно, по логике используем For ... (минус одна переменная, а можно сделать и минус 2 :yes: )

чё т ниче не понял! поподробней и скажите плиз что правильно?а что нет

Да, ты прав :yes:, вот более короткое решение :

   for i := 1 to 14 do
    if odd(i) then
     s := s-sqrt(i)
    else s := s+sqrt(i);

пасиб большое
а как второе решать знает кто-нить?

вот еще более короткое:

for i := 1 to 14 do
  s := s + (1 - 2 * (i mod 2)) * sqrt(i);

по поводу второй задачи
пользуйся поиском :yes: Вычисление конечной даты

господа модеры, не внести ли вопрос о вычислении даты в ФАК ? Может темку там создать целую про даты?

почему при запуске той программы, которая выложена в том разделе, выскакивает ошибка на FOR.
Мне кажется та прога про другую песню поет.
Мне нужно определить дату следующего дня+квартал, с использованием перечисляемого типа. Вот как с этим типом работать я не врублюсь! помогите плз

To: klem4, в следующий раз давай ссылку более точно...

BUGerKola, первая программа действительно сбойная (собственно поэтому человек к нам и обратился)... Проверь мою:
Вычисление даты

Если тебе нужна работа с перечислимым типом, можно в принципе ввести тип Months и заменить им то, что есть сейчас... Дальнейшее обсуждение (если понадобится) - в той теме...