begin writeln ('‚ Введите число k (2<=k<=20)'); readln (k); if(k>=2) and (k<=20) then T0:=(0.1); T1:=(1.0); for Tn:= 2 to k do T:=(2*T1[0]-T0[0], 2*T1[1]-T2[1]); T0:=T1; T1:=T; write(T); readln; end.
И правильное ли решение?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.