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

Паскаль. нач. уровень.

числа фибоначчи определяются: f0=f1=1, fn=fn-1+fn-2, при n=2, (т.е. каждое последующее число равно сумме двух предыдущих). составить программу:
а) нахождения к-го числа фибоначчи
б) нахождение самого первого числа фибоначчи, превышающего м
в) вычисления суммы всех чисел фибоначчи, значения которых не превышают 1000.

👇
Ответ:
Angelamur
Angelamur
06.02.2020

ответ:

как-то так:

var i, m : integer;

s: longint;

function fib(n: integer): longint;

begin

if n< 2 then fib: =1

else fib: =fib(n-1)+fib(n-2);

end;

begin

writeln('f(25)=',fib(25));

write('enter m: ');

readln(m);

i: =1;

while fib(i)< =m do

inc(i);

writeln('fib(',i,') = ',fib(i), ' > m=',m);

s: =0;

i: =1;

while (fib(i)< =1000) do

begin

inc(i);

s: =s+fib(i);

end;

writeln('sum = ',s)

4,5(65 оценок)
Открыть все ответы
Ответ:
tim2424
tim2424
06.02.2020

ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

#include

#include

using namespace std;

int main(int argc, char** argv) {

    int num, n, co;

    cout< < "number? "<

    cin> > num;

    cout< < "cifra? "<

    cin> > n;

    int count = 0;

    for (; num> 0; count++) {

        num /= 10;

    }

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

        if (num[i] == n) {

            co++;

        }

    }

    cout< < "number of "<

    return 0;

}

объяснение:

4,4(48 оценок)
Ответ:
dulikosha20051
dulikosha20051
06.02.2020

var a,b,c,d,res: integer;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите c: ');

readln(c);

write('Введите d: ');

readln(d);

res := a;

// Проверяем число b

if (b mod 10 > res mod 10) then res:=b

else if (b mod 10 = res mod 10) then

 begin

 if (res<b) then res:=b;

 end;

// Проверяем число c

if (c mod 10 > res mod 10) then res:=c

else if (c mod 10 = res mod 10) then

 begin

 if (res<c) then res:=c;

 end;

 

// Проверяем число d

if (d mod 10 > res mod 10) then res:=d

else if (d mod 10 = res mod 10) then

 begin

 if (res<d) then res:=d;

 end;

 

writeln('Число с наибольшей последней цифрой: ',res);

end.

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