Камишок777
03.05.2020 22:37

Примеры получения информации от живой и неживой природы​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
мика0955
28.12.2020 07:32

#include <iostream>

 

using namespace std;

 

void hanoi_towers(int quantity, int from, int to, int buf_peg)  //quantity-число колец, from-начальное положение колец(1-3),to-конечное положение колец(1-3)

{                               //buf_peg - промежуточный колышек(1-3)

   if (quantity != 0)

   {

       hanoi_towers(quantity-1, from, buf_peg, to);

 

       cout << from << " -> " << to << endl;

 

       hanoi_towers(quantity-1, buf_peg, to, from);

   }

}

 

int main()

{

       setlocale(LC_ALL,"rus");

   int start_peg, destination_peg, buffer_peg, plate_quantity;

   cout << "Номер первого столбика:" << endl;

   cin  >> start_peg;

   cout << "Номер конечного столбика:" << endl;

   cin  >> destination_peg;

   cout << "Номер промежуточного столбика:" << endl;

   cin  >> buffer_peg;

   cout << "Количество дисков:" << endl;

   cin  >> plate_quantity;

 

   hanoi_towers(plate_quantity, start_peg, destination_peg, buffer_peg);

return 0;

}

Объяснение:

0,0(0 оценок)
Ответ:
seva0311
03.05.2021 12:36

const

 AOper: array [0..3] of string = ('+', '-', '*', '/');

var

 a, b, Oper: Integer;

 r: Real;

begin

 Randomize;    // инициализация датчика случайных чисел

 a := Random (1001);

 b := Random (1001);

 Oper := Random (4);

 case Oper of

 0: r := a + b;

 1: r := a - b;

 2: r := a * b;

 3:if b <> 0 then begin

     r := a / b;

   end else begin

     WriteLn ('Произошла ошибка при делении на ноль');

     Exit;

   end

 else r := -1;

 end;

 WriteLn (a);

 WriteLn (b);

 WriteLn (Aoper [Oper]);

 if (r >= 0) and (r - Trunc (r) = 0) then begin   // если в результате получилось положительное целое число

   WriteLn ('yes');

   WriteLn (r :6 :0);

 end else

   WriteLn (' no');

 ReadLn;

end.

Объяснение:

r - Trunc (r) // это выделение дробной части числа

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