В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
mrrosslanp0aahw
mrrosslanp0aahw
10.02.2020 08:11 •  Информатика

Здравствуйте, у меня есть читы на игру. Файл в формате exe. При открытии чтоб активировать чит, надо вводить ключ. Этот ключ даётся при покупке на определенное время. То есть ты вводишь ключ и играешь время которое покупал. Можно ли как-то обойти вход через ключ? Пересобрать файл и вырезать запрос ключа. За могу заплатить до 500 рублей. Пишите в Discord: Damoko#0041

Показать ответ
Ответ:
Lilifvg
Lilifvg
23.11.2020 11:33
1)program fagasg;
var x1,y1,r: real;
begin
Writeln('Введите х1');
readln(x1);
Writeln('Введите у1');
readln(y1);
r:=sqrt(x1*x1+y1*y1);
Writeln('Расстояние от х1 до у1=',r);
end.
2)Program fsgasghfd;
var c,s: real;   
a,b: integer;
begin
Writeln('Введите первое целое число');
readln(a);
Writeln('Введите второе целое число');
readln(b);
Writeln('Введите дробное число');
readln(c);
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then 
s:=a+b+c
else writeln('Знаки разные');
If ((a>0) and (b>0) and (c>0)) or ((a<0) and (b<0) and (c<0)) then Writeln('Сумма чисел:',s);
end.
3)Program wrqrwqr;
var A: Array[1..100] of integer;   
B: Array[1..100] of integer;   
C: Array[1..100] of integer;   
s,i,h,g: integer;
begin
h:=0;
g:=0;
Writeln('введите размерность массива');
readln(s);
Writeln('Вводится первый массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(A[i]); 
end;
Writeln('Вводится второй массив');
For i:=1 to s do 
begin   
Writeln('Введите элемент массива №',i);   
readln(B[i]); 
end;
For i:=1 to s do  begin   
If A[i]>B[i] then C[i]:=A[i]     
else C[i]:=B[i];   
If C[i] mod 2=1 then h:=h+1;   
If C[i] mod 2=0 then g:=g+1; 
end; 
Writeln('Количество нечётных элементов в массиве:',h); 
Writeln('Количество чётных элементов в массиве:',g);
end.
0,0(0 оценок)
Ответ:
Ziri12
Ziri12
10.04.2020 01:40

1)36(10)=>(..)(8) Из 10 ой системы в любую другую мы переводим методом деления и остатки записываем в ответ

а)36/8=4 и 4 в остатке ответ 44(8)

б) следуя из задания а тут у нас отрицательное число следовательно будет -44(8)

в)106(10)=>(..)(8)

106/8=13 и 2 в остатке

13/2=1 и 5 в остатке ответ: 152(8)

г) -152(8)

2)a)00010100(2)=>(..)(10) Здесь мы работаем методом коэкоэфициентов

0*2^7+0*2^6+0*2^5+1*2^4+0*2^3+1*2^2+0*2^1+0*2^0=20(10)

ответ:20

б)11110110(2)=>(..)(10)

1*2^7+1*2^6+1*2^5+1*2^4+0*2^3+1*2^2+1*2^1+0*2^0=246(10)

ответ:246(

в) 00011100(2)=>(..)(10)

0*2^7+0*2^6+0*2^5+1*2^4+1*2^3+1*2^2+0*2^1+0*2^0=28(10)

ответ: 28

г) 10101100(2)=>(..)(10)

1*2^7+0*2^6+1*2^5+0*2^4+1*2^3+1*2^2+0*2^1+0*2^0=86(10)

ответ: 86

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота