2в.н.э - изобретение технологии изготовления бумаги в китае середина 15 в. - начало книгопечатания в европе2-1 тысячелетия до н.э - появление алфавитного письма в финикии80- гг. 20 в. - появление первых лазерных дисков5-15 тысячелетия до н.э - первые следы иероглифического письма в древнем египтесередина 16 в - начало книгопечатания в росии60-е гг. 20 в. - появление первых жестких дисков для компьютеров1895 г - демонстрация первого кинофильма70-е гг 19 в - первая запись звука с фонографа20-е гг 20 в - изобретение магнитофона1839 г. - изобретение фотографии
fafina12586
28.02.2021
Ярешала эту горем - по - полам .. простите : в ней должны быть равны элементы стоящие в одной побочной диагонале. всего побочных диагоналей n+m-1. достаточно хранить первую строку и последний столбец, var n, m, i, j, b : integer; a : array [1..30000] of integer; t : boolean; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln(n,m); while n+m> 0 do begin t: =true; for j: =1 to m do read(a[j]); for i: =2 to n do begin for j: =1 to m-1 do begin read(b); t: =t and (b=a[i+j-1]) end; read(b); a[m+i-1]: =b end; if t then write('y') else write('n'); readln(n,m) end; close(output) ; end.