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);

x := x * 10;

end;

WriteLn(count)

end.

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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