Числа фибоначчи – элементы числовой последовательности 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, …, в которой каждое последующее число равно сумме двух предыдущих чисел. количество простых чисел среди первых сорока пяти чисел фибоначчи составляет …

Var f1,f2,s,i,k: integer; function prost(n: integer): boolean; var j,m: integer; begin m: =0; for j: =2 to trunc(sqrt(n)) do   if n mod j = 0 then inc(m); prost: =m=0; end; begin f1: =1; f2: =1; k: =0; for i: =4 to 45 do   begin   s: =f1+f2;   if prost(s) then begin inc(k); writeln(i,'-',s); end;   f1: =f2;   f2: =s;   end; writeln('k=',k); end. результат: 4-2 5-3 6-5 8-13 12-89 14-233 18-1597 24-28657 30-514229 44-433494437 k=10

Var n: integer; begin   repeat       read(n);         if n< 1 or n> 12 then writeln('неверный номер месяца');   until n=> 1 and n< =12 ; case n of   1: writeln('этот месяц - январь, время года - зима.');   2: writeln('этот месяц - февраль, время года - зима.');   3: writeln('этот месяц - март, время года - весна.');   4: writeln('этот месяц - апрель, время года - весна.');   5: writeln('этот месяц - май, время года - весна.');   6: writeln('этот месяц - июнь, время года - лето.);   7: writeln('этот месяц - июль, время года - лето.');   8: writeln('этот месяц - август, время года - лето.');   9: writeln('этот месяц - сентябрь, время года - осень.');   10: writeln('этот месяц - октябрь, время года - осень.');   11: writeln('этот месяц - ноябрь, время года - осень.');   12: writeln('этот месяц - декабрь, время года - зима.'); end; end.