Меню сайта

Задача №37

Найти первый отрицательный член последовательности —sin(tg(n/2)) для —n, изменяющегося следующим образом: —n=1,2,3…


Program cikl_20-

Uses crt-

Var a:real-

n:integer-

Begin

ClrScr-

N:=1-

a:=sin(sin(n/2)/cos(n/2))-

while a&gt-=0 do

begin

n:=n+1-

a:=sin(sin(n/2)/cos(n/2))-

end-

writeln(a:4:2)-

readln-

end.

Категория: Циклы | Дата: 12.11.12

Меню раздела
Блок