const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or ((161 < = a[i]) and (a[i] < =175)) or ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index = ',i+1,'; bukva - ''',char(a[i]),'''',' a[i] = ',a[i]); end;
beginwriteln; for i: =1 to n do b[i] : = random(300); for i: =1 to n do begin write(' ',i,' = ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b); readln;
end.
Ответ дал: Гость
существует несколько стандартных разрешений монитора: 640 на 480, 800 на 600, 1024 на 768, 1280 на на 1024. т.е. 1310720 должно быть произведением этих параметров, получается разрешающая способность 1280 на 1024.
или
1280 x 1024 - это единственное стандартное разрешение, позволяющее вместить на экран ровно 1310720 px
Популярные вопросы