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

Нужна программа на pascal. через рекурсию. даны натуральные числа a и b. определить, могут ли эти числа быть соседними членами последовательности фибоначчи.

👇
Ответ:
senyadubra
senyadubra
24.05.2022
// PascalABC.NET 3.0, сборка 1088
function Fib(n:integer):longint;
begin
  if n<3 then Fib:=1 else Fib:=Fib(n-2)+Fib(n-1)
end;

var
  a,b,f,mn:longint;
  i:integer;
begin
  Write('Введите а и b: '); Read(a,b);
  if a<b then mn:=a else mn:=b;
  i:=1;
  repeat
    f:=fib(i); Inc(i);
  until f>=mn;
  if f=mn then begin
    if a=mn then mn:=b else mn:=a;
    if fib(i)=mn then Writeln('Соседние числа Фибоначчи')
    else Writeln('Меньшее - число Фибоначчи, большее - не его сосед')
    end
  else Writeln('Меньшее - не число Фибоначчи, работа закончена')
end.

Тестовые решения:
Введите а и b: 610 987
Соседние числа Фибоначчи

Введите а и b: 500 250
Меньшее - не число Фибоначчи, работа закончена

Введите а и b: 610 830
Меньшее - число Фибоначчи, большее - не его сосед
4,6(37 оценок)
Открыть все ответы
Ответ:
green121
green121
24.05.2022

Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.Изучите несплошной текст. Создайте связный сплошной текст (4-5 предложений), описывая и анализируя информацию несплошного текста.

Объяснение:

4,5(88 оценок)
Ответ:
cote18
cote18
24.05.2022
Не учимся!"

# 1

chr_count = 0

chr_num = 0

for _ in text:

if text[chr_num] == "!":

chr_count += 1

text = text[:chr_num] + text[chr_num+1:]

continue

chr_num += 1

print("Номер 1")

print(text)

print(chr_count)

# 2

chr_num = 0

for i in text:

if text[chr_num] == "а":

text = text[:chr_num+1] + "бвгд" + text[chr_num+1:]

chr_num += 4

chr_num += 1

print("\nНомер 2")

print(text)

# 3

new_text = text

for num in range(1, len(text)+1):

new_text += text[-num]

text = new_text

print("\nНомер 3")

print(text)

# 4

new_text = ""

for num in range(len(text)):

if num % 2 == 0:

new_text += text[num]

text = new_text

print("\nНомер 4")

print(text)

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