Найти номер первого, меньшего нуля, тангенса, среди tg(r), ..., tg2, tg1.через программу Паскаля
Найти номер первого, меньшего нуля, тангенса, среди tg(r), ..., tg2, tg1.
через программу Паскаля
Гость
Ответ(ы) на вопрос:
Гостьvar r, i: integer;
begin
write('r = ');
readln(r);
for i := r downto 1 do
if Tan(i) < 0 then
break;
write(i);
end.
Не нашли ответ?
Похожие вопросы