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