3 года назад

Найдите рекурсивную и не рекурсивную подпрограмму , которая вычисляет произведение Р(n) = 246...2n’ Нужно очень срочно !!!

Знания

Информатика

1 ответ:

nond523 года назад

0 0

Ответ:

1) не рекурсивная

Begin

P=1;

Read(n);

For i:= 1 to n do

P:=p*2*i;

End.

2)рекурсивная

Function p(n:integer)

Begin

If n=1 then p:=1

Else p:=2*n*p(n-1);

End;

Читайте также

Помогите перевести 8192 бита в байты, 4мБайта в биты 12582912 бита в мБайты Заранее спасибо!

maxy8 [7]

1 байт = 8 бит
8192:8=1024 байта
1 мб = 8388608 бит
4 мб = 8388608*4 = 33554432 бит
12582912 бит = 1.5 мб

0 0

3 года назад

Укажите устройство компьютнра выполняющее обработку информации

Pretendent

Это процессор!!!!!!!

0 0

4 года назад

Помогите с C++ Пожалуйста! даны целые числа а1, ..., аn. Верно ли что в последовательности есть отрицательные числа

НатальяКаховская [7]

Вот если 1 число или более

#include <iostream>
#include <vector>

using namespace std;

int main()
{
    vector<int> a;
    bool flag = false;
    int n;
    cin >> n;
    a.resize(n);
    for (int i = 0; i < n; ++i) {
        cin >> a[i];
    }
    for (int i = 0; i < n; ++i) {
        if (a[i] < 0) {
            flag = true;
            break;
        }
    }
    if (flag)
        cout << "YES";
    else
        cout << "NO";
    return 0;
}

Вот если 2 или более

#include <iostream>
#include <vector>

using namespace std;

int main()
{
    vector<int> a;
    bool flag = false;
    int n, cnt = 0;
    cin >> n;
    a.resize(n);
    for (int i = 0; i < n; ++i) {
        cin >> a[i];
    }
    for (int i = 0; i < n; ++i) {
        if (a[i] < 0) {
            cnt++;
            if (cnt == 2) {
                flag = true;
                break;
            }
        }
    }
    if (flag)
        cout << "YES";
    else
        cout << "NO";
    return 0;
}

0 0

2 года назад

Реализуйте решение задачи, программируя на Паскале. Начальный вклад в банк составляет x=300000 рублей. Через сколько лет он стан

AHTOH228

Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.

0 0

4 года назад

Хелп с пк. Что это я не могу передвинуть не куда ток туда где эта полоса..

Ольгитта2307

Правой кнопкой мыши по рабочему столу - Вид - Снимите галочку с "Выровнять по сетке"

0 0

4 года назад

Найдите рекурсивную и не рекурсивную подпрограмму , которая вычисляет произведение Р(n) = 2*4*6*...*2n’ Нужно очень срочно !!!

Найдите рекурсивную и не рекурсивную подпрограмму , которая вычисляет произведение Р(n) = 246...2n’ Нужно очень срочно !!!