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