М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kaban229
kaban229
11.06.2020 22:13 •  Информатика

Два робота: A и B двигаются в горизонтальном тоннеле, разбитом на 80 равных клеток, пронумерованные слева направо от 1 до 80 соответственно. В начальный момент времени робот A находится в клетке 1, а робот B – в клетке 80. Роботы двигаются по очереди.

Одно движение робота A состоит в следующем: 5 раз перемещаться на 1 клетку вправо, а затем 2 раза перемещаться на 1 клетку влево.

Одно движение робота B состоит в следующем: 6 раз перемещаться на 1 клетку влево, а затем 4 раза перемещаться на 1 клетку вправо.

Начинает движение робот A.

Столкновением будем считать ситуацию, когда в результате или во время своего движения робот оказывается на клетке, в которой в этот момент времени находится другой робот. В какой клетке столкнутся роботы? В ответе укажите целое число – номер этой клетки.

👇
Открыть все ответы
Ответ:
vasx
vasx
11.06.2020

Var a, b, i, c:Integer ;

Begin

Write('a=') ;read(a) ;writeln;

Write('b=') ;read(b) ;writeln;

Write('c=') ;read(c) ;writeln;

If (a<c+b) and(b<a+c) and(c<b+a) then begin

I:=1;

Write(' Треугольник существует ') ;

End Else begin

I:=0;

Write(' Треугольник не существует ') ;

End;

If i=1 then begin

If (a>b) and(a>c) then

If sqr(a) =sqr(b) +sqr(c) then write(' Треуголинк прямоугольный')

Else write(' Треугольник не прямоугольный ') ;

If (b>a) and(b>c) then

If sqr(b) =sqr(a) +sqr(c) then write(' Треуголинк прямоугольный')

Else write(' Треугольник не прямоугольный ') ;

If (c>a) and(c>b) then

If sqr(c) =sqr(b) +sqr(a) then write(' Треуголинк прямоугольный')

Else write(' Треугольник не прямоугольный ') ;

End;

End.

4,7(16 оценок)
Ответ:
katiakosareva11
katiakosareva11
11.06.2020

1)

using System;

class Program {

   static void Main() {

       int num = 16;

       bool isPow2 = true;

       

       while (num > 1){

           if (num % 2 == 0){

               num /= 2;

           } else {

               isPow2 = false;

               break;

           }

       }

       

       if (isPow2)

           Console.WriteLine("Является");

       else

           Console.WriteLine("Не является");

   }

}

2)

using System;

class Program {

   static Random rnd = new Random();

   

   static void Main() {

       int min = 1;

       int max = 100;

       int numOfAttempts = 8;

       int x = rnd.Next(min, max);

       bool isWin = false;

       

       Console.WriteLine("Игра \"Больше-Меньше\"");

       Console.Write("Задайте число попыток: ");

       numOfAttempts = Convert.ToInt32(Console.ReadLine());

       Console.WriteLine("Отгадайте число от {0} до {1}", min, max);

       Console.WriteLine("Попытки: {0}\n", numOfAttempts);

       int input;

       do {

           Console.Write("Введите число: ");

           input = Convert.ToInt32(Console.ReadLine());

           numOfAttempts--;

           if (input > x)

               Console.WriteLine("x < {0}   [попытки: {1}]", input, numOfAttempts);

           if (input < x)

               Console.WriteLine("x > {0}   [попытки: {1}]", input, numOfAttempts);

           if (input == x){

               isWin = true;

               break;

           }

       } while (numOfAttempts > 0);

       

       if (isWin){

           Console.WriteLine("\nПобеда!");

       } else {

           Console.WriteLine("\nПроигрыш! Загаданное число: {0}", x);

       }

   }

}

4,5(16 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ