Чому дорівнює значення змінної s після виконання циклу: а) s : = 0; for і : = 5 to 7 do s : = s + 1; б) s : = 0; for і : = 10 downto 6 do s : = s + 1; в) s : = 0; for і : = 'a' to 'd' do s : = s + 1;

Должно быть так:
а) 3
б) 5
в) 4

uses
  GraphABC;

var
  i: word; //Было предпочтительнее использовать byte,
             //ведь от 3 до 7 считаем, но тип word старее,
             //а к byte могут придраться

begin
  SetBrushColor(clBlue); //Проставляем цвет кисти, я не
                                    //нашёл функции рисования круга,
                                    //где можно было бы указать цвет
  for i := 3 to 7 do
  begin
    FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
    sleep(500); //Поскольку круги в конечном счёте всё равно
                     //затираются более большими, будем выводить
                     //с задержкой
  end;
end.

в первом вводе вводятся количество строк и столбцов

#include <iostream>

using namespace std;

int main() {

   int colss,rowss;

   cin >> cols >> rows;

   int a[cols][rows];

   for(int i = 0; i<cols; i++){

       for(int j = 0; j<rows; j++){

           cin >> a[i][j];

       }

   }

   int b[rows][cols];

   for(int i = 0; i<rows; i++){

       for(int j = 0; j<cols; j++){

           b[i][j] = a[j][i];

       }

   }

   for(int i = 0; i<cols; i++){

       for(int j = 0; j<rows; j++){

           cout << b[i][j] << " ";

       }

       cout << endl;

   }

   return 0;

}