ЛЮДИ!!!!!есть добрые люди??ОЧЕНь МАЛО ВРЕМЕНИ ДО СДАЧИ ОСТАЛОСЬ.. У КОГО ЕСТЬ ВОЗМОЖНОСТЬ отпишитессь!!!БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН...

[SwAAAte83]

1.Разработать программу, которая из строки, представляющей собой двоичную запись числа, получает число в десятичной системе счисления и проверяет, кратно ли оно 3.
2.Составить программу игры «Угадай число». Компьютер загадывает трехзначное число при помощи генератора случайных чисел. Пользователь вводит предполагаемое число. Программа сообщает, сколько цифр в ответе пользователя совпадает с цифрами загаданного числа. Игра ведется до тех пор, пока пользователь не угадает число. Необходимо также подсчитать количество попыток. Предусмотреть выход из игры при превышении некоторого количества попыток (например, 10). В этом случае считается, что пользователь «проиграл».





за ранее огромнейшее спасибо

[James_047]

Время вы конечно подобрали для обращения за помощью шикарно. Обычно такие темы сразу закрывают)). Вот первая задачка.

Uses crt;
 var s:string;
 n,l,i,des:integer;

Function Stepen(x,y:integer):integer;
 begin if y>0 then stepen:=stepen(x,y-1)*x
 else stepen:=1;
 end;

Function Transl(A : String) : Integer;
 Var L : Byte;
 Begin
 If A = ''
 Then Transl := 0
 Else Begin
 L := length(A);
 Case A[1] Of
 '0' : Transl := Transl(Copy(A, 2, L - 1));
 '1' : Transl := Stepen(2, L - 1) + Transl(Copy(A, 2, L - 1));
 End
 End
 End;

BEGIN

clrscr;
write('Vvedite dvoichn chislo N= ');
readln(s);
writeln('Desatichn N= ', Transl(S));

des:=Transl(S);

if des mod 3 = 0 then
writeln ('Kratno 3')
else
writeln ('Ne kratno 3');


readln;

END.

[James_047]

Вот вторая задача

var c,c1,p,y,y1,k,popit,pp :integer;
begin
randomize;
c:=random(999-100)+100;
writeln(c);
c1:=c;
Writeln('Vvedite kolvo popitok');
Readln(popit);

repeat
Writeln('Vvedite chislo:');
readln(p);
k:=0;
c:=c1;
repeat
    y := p mod 10;
    y1 := c mod 10;
    if y=y1 then k:=k+1;
    p := p div 10;
    c := c div 10;

  until (p = 0) and (c = 0);

  writeln(k,'cifr sovpadaet');
  popit:=popit-1;
    writeln('Kol-vo popitok ',popit);
    if k=3 then writeln('Vi ugadali chislo. You win') ;
    if (popit=0) then writeln ('You lose');
until (k=3) or (popit=0);



readln;
end.

[ERAGORN]

2)

C

#include <stdlib.h>
#include <time.h>


int main ()
{
    random ( (long) time ( 0 ) );
    int secretNumber = rand () % 1000 + 100;

    puts ( "Programma zagadala trehznachnoe chislo." );
    puts ( "Vvedide kolichestvo popitok - soskolki vi hotite ugadat: " );
    int count;
    scanf ( "%d", &count );
    puts ( "" );

    for ( int attempt = 1; attempt <= count; ++attempt ){
        system ( "cls" );

        printf ( "%d popitka - vvedide chislo: ", attempt );
        int number;
        scanf ( "%d", &number );

        if ( number == secretNumber ){
            puts ( "POZDRAVLYAEM vi viigrali!!!" );
            printf ( "Ugadano bilo s %d raza.\n\n", attempt );

            system ( "PAUSE" );
            return 0;
        }else{
            int tempSecret = secretNumber;
            int countDigit = 0;
            while ( tempSecret ){
                if ( number % 10 == tempSecret % 10 )
                    ++countDigit;
                number /= 10;
                tempSecret /= 10;
            };

            printf ( "Vi ugadali %d chifr\n", countDigit );
        };
    };

    system ( "cls" );

    puts ( "IGRA ZAKNCHENA!!!" );
    printf ( "Vi neugadali chislo %d s %d popitok.\n\n", secretNumber, count );

    system ( "PAUSE" );

    return 0;
}

блин позже увидел, что раздел паскаль. Вы не обращайте внимания, а я пошел спать.