Program test; uses crt; var i,j: integer; a: array[1..20,1..20] of char; begin clrscr; for i: =1 to 20 do begin for j: =1 to 20 do begin if(i=1)or(i=20)then begin textcolor(red); if(j> 1)and(j< 20)then write('-'); end; if(j=1)or(j=20)then begin textcolor(red); write('|'); end; if(i< > 1)and(i< > 20)and(j< > 1)and(j< > 20)then begin textcolor(yellow); write('/'); end; end; writeln; end; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Тлбоёс - в слове сместили все буквы на одну вперед какое устройство для компьютера означало слово в начале
это шифр цезаря.
ответ: сканер