Вбейте в паскаль или турбо паскаль , проверьте пж. program ideone; function ctg(x:...

Question

Вбейте в паскаль или турбо паскаль , проверьте пж.

program ideone;

function ctg(x: extended):extended;

begin

ctg := cos(x)/sin(x);

end;

var i, count : integer;

x : extended;

begin

count := 0;

x := 1;

for i:=0 to 2018 do begin

if ctg(x)<0 then Inc(count);<br>
x := x * 10;

end;

WriteLn(count)

end.

Comments

Существуют онлайновые компиляторы Pascal, используй их.

Answer 1

PascalABC.Net: не распознал extented

---

Comments

Например, в делении на 0

---

Вы поставьте промежуточную выдачу значений котангенсов.

---

а как через промежутки поставить?

---

А не надо, просто сделайте не до 2018, а до 30

---

И на каждом шаге выводите свой котагенс. Ну или с математикой подружитесь, посмотрите аналитически, что Вы считать пытаетесь.

---

тип просто через последовательность решить

---

я хочу просто сделать ее \

---

спасибо за помощь, пойду пытаться

---

Вы сначала посмотрите, какие котангенсы получаются...

---

Это же надо догадаться - вычислять котангенс для 10 в 2017-й степени...