Вбейте в паскаль или турбо паскаль , проверьте пж.
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.
Вбейте в паскаль или турбо паскаль , проверьте пж.
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.
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.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Ну так то верно, а зачем вам тип: extended. Он не обоснован. Вас интересует знак, а не такая точность. А скорость работы программы увеличится