Регистрация
kuzmov55
02.08.2022 19:16
Информатика
Есть ответ 👍

Сколько чисел фибоначчи, меньших 32000, являются простыми (первое простое число 2).написать программу в паскале.(ответ 8).

237
296
Посмотреть ответы 2

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

Кетшити
Кетшити
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.
YanaTarabakina
YanaTarabakina
4,8(11 оценок)
ввести число А ввести число В

Выводит те числа которые Вы ввели.

Выводит сообщения про фокус

в переменную byfer записывает число а

в число а записывает переменную в

в переменную в записывает byfer

Проще говоря оно меняет значения местами, если а = 3, а в = 4 тогда, а=4, а в = 3.

Выводит опять А и В, только на этот раз изменены

Популярно: Информатика