fedorbrednikoff
13.06.2021 21:45

Почему цикл не работает ?
WinActivate, RAGЕ Мultiplayer ahk_class 60826
*Numpad1::
Loop
{
Label1:
BlockInput, SendAndMouse
SendInput, {sc17}
Label2:
MouseGetPos, 1242, 420
PixelGetColor, color, 1242, 420, alt
Var4 = %color%
if ( var4 = 0x )
{
sleep 500
MouseGetPos, 1580, 440
PixelGetColor, color, 1580, 440, alt
Var1 = %color%
if ( var1 = 0x2A68FC ) | ( var1 = 0x1C5FFC ) | ( var1 = 0x1C60FC ) | ( var1 = 0x1C61FC )
{
SendInput, {Numpad3}
BlockInput, Default
}
else
{
Click Left 550,394 ,
sleep, 200
Click Left 550, 520,
BlockInput, Default
sleep 5000
Label3:
MouseGetPos, 1051, 898
PixelGetColor, color, 1051, 898, alt
Var2 = %color%
if ( var2 = 0x0000FF )
{
Send {Click}
Send {Click}
Send {Click}
Send {Click}
Send {Click}
Send {Click}
Goto, Label3
}
else
{
MouseGetPos, 624, 1024
PixelGetColor, color, 624, 1024, alt
Var3 = %color%
if ( var3 = 0x00FF4E )
{
Goto, Label1
}
else
{
Goto, Label3
}

}
}
}
else
{
Goto, Label2
}
}
Return

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
astahovanadezh
05.11.2020 03:20

1: Opera

2: Opera Software

3: Персональные компьютера и телефоны на системах:  Microsoft Windows, macOS, Linux, Android и iOS

4: Встроенный VPN, блокировщик рекламы, удобный интерфейс, тонкая настройка, функция видео во всплывающем окне.

5: При отсутствии настройки от пользователя возможна сильная нагрузка на оперативную память.

6:Разработан в 1994 году группой исследователей из норвежской компании Telenor. С 1995 года — продукт компании Opera Software, образованной авторами первой версии браузера. Написан на языке C++

0,0(0 оценок)
Ответ:
КилоЛеденцов
06.09.2020 03:55

1:

var i,n,a,s: integer;

begin

   s:=0;

   write('Введите количество чисел: '); readln(n);

   for i := 1 to n do begin

       write('Введите ', i,'-е число: '); readln(a);

       s:=s+a;

   end;

   write('Сумма введённых чисел равна: ', s);

end.

2:

var i,n,s: integer;

begin

   n:=50;

   s:=0;

   for i := 1 to n-1 do begin

       if i mod 2 = 0 then s:=s+i;

   end;

   write('Сумма положительных чётных чисел меньше ', n, ' равна: ', s);

end.

3.

var i,n: integer;

   s: real;

begin

   n := 20;

   s := 0;

   for i := 1 to n-1 do begin

       s := s + i / (n-1) ;

   end;

   write('Среднее арифметическое всех положительных чисел меньше ', n, ' равна: ', s:0:2);

end.

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