Ответ:
Если не было информации то человек и другие живые существа ничего не узнали о своем мире , а также человек перестал быть любопытным и т.д
//PascalABC.Net 3.1.0.1200
var
c: char;
begin
readln(c);
if c in ['0'..'9'] then
writeln(ord(c))
else
writeln(chr(ord(c) + 1), chr(ord(c) + 2));
if c in ['A'..'Z'] then
writeln(LowCase(c));
end.
N=
N - палитра (количество цветов)
i - кол-во бит на пиксель. По задаче - 3 бита.
N=
N=8
В матрице сначала вводится строка....
Var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
<span>end.</span>