М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
HAHAEZ2010
HAHAEZ2010
03.03.2021 18:01 •  Информатика

Pascal: числа фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. определить член фибоначчи, который больше заданного числа х.

👇
Ответ:
09kok90
09kok90
03.03.2021
Var a1,a2,an,x:integer;
begin
write('x = ');
readln(x);
a1:=1; a2:=1; an:=1;
while an<=x do
 begin
 an:=a1+a2;
 a1:=a2;
 a2:=an;
 end;
writeln('an = ',an);
end.

Пример:
x = 25
an = 34
4,7(68 оценок)
Ответ:
Wow019282
Wow019282
03.03.2021
Function Fib(n:integer):integer;
begin
  if n<3 then Fib:=1
  else Fib:=Fib(n-1)+Fib(n-2)
end;

var
  i,f,x:integer;
begin
  Write('X='); Read(x);
  i:=1;
  repeat
    f:=Fib(i); Inc(i)
  until f>x;
  Writeln('Число Фибоначчи, большее введенного: ',f)
end.

Пример
X=27
Число Фибоначчи, большее введенного: 34
4,4(14 оценок)
Открыть все ответы
Ответ:
Alina29521
Alina29521
03.03.2021

i = 0 # Создаём переменную i со значением 0

for i in range(20, 30): # Используем цикл for: повторяем от 20 до 30

   i = i + 1 # Ставим i его же значение и прибавляем 1

   if i % 2 == 1: # Если процент от 2 равен 1

       print(i) # то выводим число i

   else: # Исключение

       continue # пропускаем

print("--- Код снизу написан используя while ---") # Это строка кода необязательна, она просто обозначает где использовался цикл while

r = 20 # Создаём переменную r со значением 20

while r != 30: # Цикл while: повторяем пока переменная r не будет равна 30

   r = r + 1 # Ставим r его же значение и прибавляем 1

   if r % 2 == 1: # Если процент от 2 равен 1

       print(r) # то выводим число i

   else: # Исключение

       continue # Пропускаем

Объяснение:

(см. ответ)

4,4(23 оценок)
Ответ:
Irina1357
Irina1357
03.03.2021

Відповідь:

#include <iostream>

using namespace std;

void cinarr(int *arr,int N){

for(int i = 0; i < N; i++){

 cout << "A[" << i + 1 << "] : ";

 cin >> arr[i];

}

}

void printnumber(int *arr,int N){

for(int i = 0; i < N; i++){

 cout << arr[i];

}

}

bool check(int *arr,int N){

int number = arr[N - 2] * 10 + arr[N - 1];

if(number % 4 == 0){

 return true;

}  

return false;

}

int main(){

setlocale(LC_ALL , "Rus");

int N;

cout << "Введите кол-во цифр числа(не больше 30): ";

cin >> N;

if(N < 0 || N > 30){

 cout << "Неправильно введены входные данные..." << endl;

 return 1;

}

int arr[N];

cinarr(arr,N);

cout << "Число: ";

printnumber(arr,N);

cout << endl;

if(check(arr,N) == true){

 cout << "Число делиться на 4 " << endl;

}

else{

 cout << "Число не делится на 4 " << endl;

}

return 0;

}

Пояснення:

4,6(55 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ