Можете написать на qbasic и составить блок-схему к нему? ввести массив из mxn элементов. сформировать три новых массива, повернув исходный на 90 градусов против часовой стрелки. надо, чтобы массив вбивался вручную.

Cls dim a(100, 100) input "n="; n input "m="; m for i = 1 to n for j = 1 to m print str$(i); print str$(j); input ; a(i, j) next j print next i print "" for i = 1 to n for j = 1 to m print a(i, j), next j print next i print "" for j = m to 1 step -1 for i = 1 to n print a(i, j), next i print next j  

Var {секция описания переменных} number,num1,num2,sum: integer; begin{начало программы} write('введите двухзначное число: '); //вывод строки на экран read(number);   //переменная number получает значение с клавиатуры num1 : = number div 10;   //в num1 целая часть от деления number на 10 num2 : = number mod 10;   //в num2 остаток от деления number на 10 sum : = num1 + num2;   //находим сумму num1 и num2 write('сумма двух чисел — ',sum); //вывод результата на экран end. {конец программы}

var

  x, y : real;

begin

  read (x, y);

  if (x > 0) and (y < 0) then writeln ('yes') else writeln ('no');

end.

 

не знаю только, как рассмотреть случай, если одна из координат = 0

 

var

  a, b, c : real;

begin

  if (a > b) then

  begin

    c : = a;

    a : = abs (a + b);

    b : = sqr (c) - sqr (b);

  end

  else

  begin

    c : = b;

    b : = abs (b + a);

    a : = sqr (c) - sqr (a);

  end;

  writeln (a, ' ', b);

end,