1. caps Lock;
3. del (delete);
4. backspace
7. pause
9. ctrl
10. tab
12 <span>Scroll Lock</span>
13 esc
14 enter
16 PgDn (Page Down)
В разных кодировках по разному. обычно 1 символ - 1 байт(8бит)
//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.
If M<=15 then M:=2*Sqrt(N) else M:=N-3;
Var
N,M,S,A,i,j:integer;
Begin
S:=0;
j:=0;
Write('N = ');Read(N);
Write('M = ');Read(M);
For i:= 1 to N do
Begin
A:=random(2001)-1000;
Write(A,' ');
if A mod M = 0 then
Begin
S:=S+A;
j:=j+1;
End;
End;
WriteLn;
if j=0 then Write('Чисел, кратных ',M,' нет')
else Write('Среднее арифметическое чисел, кратных ',M,' = ',S/j);
End.