Известно скорость двух автомобилей какое расстояние будет между ними через 3 часа если автомобили выехали из одного пункта? программа паскаль

Var  v1, v2: integer;
begin

  readln(v1, v2);

  if (v1 > v2) then

    writeln(v1 * 3 - v2 * 3)

  else

    writeln(v2 * 3 - v1 * 3);

end.

Цикл while

Пишется так:

while условие do

begin

Тело цикла

end;

Выполняет тело цикла (команды между begin и end;) пока соблюдено условие в заголовке цикла.

Пример:

while x<100 do

begin

x:= x+1;

end;

Прибавляет к переменной x единицу пока x меньше ста. Если x больше ста, то цикл заканчивается.

Числа Фибоначчи

Последовательность начинается с 0 1

Каждое следующее число равно сумме двух предыдущих

0 1 1 (0+1=1)

0 1 1 2 (1+1=2)

0 1 1 2 3 (1+2=3)

0 1 1 2 3 5 (2+3=5)

и т.д.

Одномерные массивы

Массив можно представить как ряд из ящиков

каждый ящик имеет свой номер (индекс)

в ящике лежит значение (цифры или символы)

Объявляются как переменные в начале программы:

program raf105

var название:array[количество элементов] of тип;

количество элементов пишется как диапазон от минимального значения индекса (Индекс это число в квадратных скобках) до максимального между ними ставятся две точки

Пример:

program raf105

var X:array[1..10] of integer;

Это массив под названием X с 10-ю элементами типа integer

Обращение к массиву

Название[индекс]

Пример:

x[8]:= 101;

Мы присвоили восьмому элементу массива под названием x значение 101

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);

       }

   }

}