Шахматная доска Даны два числа n и m. Создайте двумерный массив размером n×m и заполните его символами 1 и 0 в шахматном порядке. В левом верхнем углу должна стоять единица. Данную задачу необходимо решить с генератора, который заполнит матрицу A. Вы должны отправить на проверку единственную строку вида: A = [текст генератора] Примеры Ввод Вывод 3 4 1 0 1 0 0 1 0 1 1 0 1 0

Изначально смотрим что у нас не совпадают еденицы измерения, скорость передачи у нас в БИТАХ в секунду, а размер файла в КИЛОБАЙТАХ. Переводим Килобайты в байты (1 Килобайт=1024 байтам, 1 байт = 8 битов)Следовательно 2000 Килобайт * 1024 = 2048000 байт * 8= 16384000 бит. Скорость передачи данных = объем данных / на время затраченное для передаци этих данных. Следовательно чтобы найти время затраченое для передачи данных надо объем переданных данных (т.е. 2000 Кбайт, которые мы предварительно перевели в биты 16384000 бита) поделить на скорость передачи данных 1024000бит/с.16384000бит / 1024000 Кбит/с = 16 сек. Что собственно и является ответом.

// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840