Регистрация
Dashka6969
11.02.2022 00:39
Информатика
Есть ответ 👍

Вбейте в паскаль или турбо паскаль , проверьте . 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.

131
280
Посмотреть ответы 2

Ответы на вопрос:

123123123131
123123123131
4,4(19 оценок)

pascalabc.net: не распознал extented

артур631
артур631
4,8(39 оценок)

ТЕКСОВИМИ РЕДАКОРАМИ

Объяснение:

Популярно: Информатика