Помогите написать на паскале.

Не могу дать ума заданиям практическим.
- Найти сумму -
1) S = x/2 - x/4 + x/6 -... (10 слагаемых)
2) Определить количество целых решений неравенства: х2-12х+27>0 на ин¬тервале [0;0].

 

Code:

s=0
 for i:=1 до 10
begin
  s:=s+x/(i*2);
end;

синтаксис не помню точно
А во втором у тебя косяк с заданием, нужно интервал поправить
но в общем виде если интервал [m;n], то выглядит примерно так

Code:

kolvo:=0 
 for x:=m to n do if x^2-12*x+27>0 then kolvo:=kolvo+1;

 

вообще это должно быть в разделе для студентов(;

 

Спасибо за помощь . Дайте пожалуйста ссылку в этот раздел.

 

Code:

  s:=s+x/(i*2); 

немного не так... там же то плюс то минус....

надо то ли добавить домножение на -1 в степени i то ли ещё как то

 

Да по моему нужно для этого брать в нечётную степерь

 

мда, вот ты обленился... Студентам с лабораторными сюда или Напишу "Лабы" и другие программы