ANTICHAT - Показать сообщение отдельно - Помогите написать на паскале.

Цитата:

Сообщение от AmadeoRache

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

Код:

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

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

Код:

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