Расставьте корабли, как в морском бою, чтобы числа в столбца и клетках соответствовали количеству занятых кораблями клеток

270

299

Посмотреть ответы 1

Ответы на вопрос:

MrDrozdik

Информатика

4,8(58 оценок)

I, j: integer; a: array [1..100, 1..100] of integer; begin readln(a[1][1], a[1][2]); for i : = 3 to 30 do a[1][i] : = a[1][i - 1] + a[1][i -2]; for i : = 2 to 30 do for j : = 1 to 30 do begin if (j > 2) then a[i][j] : = a[i][j - 1] + a[i][j - 2] else if (j = 2) then a[i][j] : = a[i][1] + a[i - 1][30] else a[i][j] : = a[i - 1][30] + a[i - 1][29]; end; for i : = 1 to 30 do begin for j : = 1 to 30 do write(a[i][j],' ') writeln; end; end. вот, сорри если что пишу без компилятора