Выбери существующий тип монитора 1)жидкокристаллический 2)порошковый 3)с электрорентгенной трубой 4)струнчатый

215

483

Посмотреть ответы 1

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

Кетшити

Информатика

4,6(48 оценок)

//pascal abc.net 3.1 сборка 1219 function fibonachi(i: integer): integer; begin if i=0 then fibonachi: =0 else if i=1 then fibonachi: =1 else fibonachi: =fibonachi(i-1)+fibonachi(i-2); end; var i,j,k: integer; b: boolean; begin i: =1; while fibonachi(i)< 32000 do begin b: =false; for j: =2 to i div 2 do if i mod j=0 then b: =true; if (b=false) and (fibonachi(i)> =2) then inc(k); inc(i); end; writeln(k); end.