Придумайте свой "мир" заменив определение " сказочный" на другое. постарайтесь сделать за наименьшее число операций ( можно за одну)

Прелестный или  волшебный

не знаю паскаль, знаю c++ : )

{ 

int a, b;

//вводим значения в a и в b (в футах)

cin > > a > > b;

b = b*45;

if (a> b) cout < < "в км больше";

else cout > > "в футах больше";  

} 

 

{ 

// тут важен дробный тип 

dooble a, b;

//вводим значения в a и в b (м/c)

cin > > a > > b;

a = a: 3.6;

if (a> b) cout < < "в км/ч больше";

else cout > > "в м/с больше";  

}

 

ну а дальше надо уже все по формулам смотреть. 

{

doouble a,b;  

//вводим значения в a и в b стороны

cin > > a > > b;

a=a*a*3.14;

b=b*b;

if(a> b) cout < < "площадь круга больше";

else cout < < "площадь квадрата больше";  

} 

 

4. не знаю как такое делать, что значит уместиться ли круг в квадрате? уместится если радиус его меньше чем половина стороны.

 

5.

{

  doouble a,b,c,d;

  cin > > a > > b > > c > > d; // вводим объем и массу;

  a = a/b;

c = c/d;

if(a> c) cout < < "тело 1 имеет плотность больше чем тело 2";

else cout < < "тело 2 имеет большую плотность";  

} 

 

6. не знаю. но тоже как-то через форумулы. 

Const m=200; var a: array[1..m] of integer;     i,j,n: integer; begin     write('количество элементов массива:   ');     readln(n);     randomize;     write('массив:   ');     for i: =1 to n do     begin       a[i]: =random(40);       write(a[i],' ');     end;     writeln;     write('отсортированный массив:   ');       for i: =1 to n-1 do     for j: =i+1 to n do     if a[i]> a[j] then swap(a[i],a[j]);     for i: =1 to n do write(a[i],' '); end.     количество элементов массива:   10 массив:   32 2 10 22 2 13 25 6 15 6  отсортированный массив:   2 2 6 6 10 13 15 22 25 32