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

If(Input.GetKey(upButton)) {
vertical = 1;
anim.Play("walk-up");
}
else if(Input.GetKey(downButton))
{
vertical = -1;
anim.Play("walk-down");
} else
{
vertical = 0;
}
if(Input.GetKey(leftButton))
{
horizontal = -1;
anim.Play("walk-left");
}
else if(Input.GetKey(rightButton))
{
horizontal = 1;
anim.Play("walk");
} else
{
horizontal = 0;
}
что в это фрагмент кода нужно записать чтобы когда не нажата ни одна из 4 кнопок выводилась анимация "idle"

Показать ответ
Ответ:
Nikita9244
Nikita9244
08.02.2023 17:40

var


 A: array [1..40] of Integer;


 i, c: Integer;


begin


   Randomize;


   WriteLn ('Массив случайных чисел:');


   for i := 1 to 40 do begin


     A [i] := Random (10);


     Write (IntToStr (A [i]) + ' ');


   end;


   c := 0;


   for i := 1 to 40 do begin


     if (A [i] mod 2  <> 0) and (A [i] mod 3 = 0) then   // первое условие - проверка на нечетность, второе - делимость на 3

     Inc (c);


   end;


   Writeln;


   WriteLn ('Количество нечетных чисел, которые делятся на 3 = ' + IntToStr (c));

end.

0,0(0 оценок)
Ответ:
Lisaezhik
Lisaezhik
26.10.2020 10:55

const N = 100;

var a: array [1..N] of integer;  

       i, count, sum, p: integer;

       arith: real;

       mult: biginteger;

       

begin

       randomize;

       for i:= 1 to N do a[i]:= random(1, 1000);

       

       sum:= 0;

       

       for i:= 1 to N do begin

           if a[i] mod 2 = 0 then begin

               inc(count);

               sum:= sum + a[i];

               arith:= sum / count;

           end;

           if a[i] mod 2 = 0 then begin

               p:= a[i] * a[i];

               if mult = 0 then mult:= p else mult:= mult * p;

               // Произведение капец длинное

               if a[i] mod 3 = 0 then a[i]:= i * i;

           end

       end;

       

      writeln(arith);

      writeln(mult);

end.

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