profile
Размещено 6 лет назад по предмету Информатика от happy97

Помогите пожалуйста!!!нужно написать программы на паскале!

1) дано целое число m>1. получить наибольшее целое k, при котором 4^k(четыре в степени k)<m.

2)дано натуральное число n, получить наименьшее число вида 2^r(два в степени r), превосходящее n.

3)дано натуральное число n. вычислить 1*2+2*3*4+...+n*(n+1)*...*2n     (*-знак умножения)

4)Вычислить:

       1

_____________

               1

1   + _________

                1

3    +  _________

                1

5     +  ________

 

......

               1

101   +   ___

             103

(______________ - дробь)

помогите чем сможете, пожалуйста!

  1. Ответ на вопрос
    Ответ на вопрос дан crool100

    program z1;
    var
    i,j,m,k,z,x,l:integer;
    begin
    readln(m);
    for i:=0 to m do begin z:=1;
    if i=0 then z:=1 else begin
    x:=i;
    while x<>0 do begin
    z:=z*4;
    x:=x-1;
    end; end;
    if ((z<m) and (z*4>m)) then writeln(i);
    if z=m then writeln(i-1);
    end;
    end.

     

    program z2;
    var
    i,j,n,k,z,x,l:integer;
    begin
    readln(n);
    for i:=0 to n do begin z:=1;
    if i=0 then z:=1 else begin
    x:=i;
    while x<>0 do begin
    z:=z*2;
    x:=x-1;
    end; end;
    if ((z>n) and (z/2<n)) then writeln(i);
    if z=n then writeln(i+1);
    end;
    end.

     

    program z3;
    var
    i,j,n,k,z,x,s:integer;
    begin
    readln(n); s:=0;
    for i:=1 to n do begin z:=1;
    for j:=i to 2*i do
    z:=z*j;
    s:=s+z; end;
    writeln(s);
    end.

     

    время 2 ночи 

    ...думаю пора спать ) 


Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.