1) c b a ¬ b c v ¬ b a&¬ b F
0 0 0 1 1 0 0
0 0 1 1 1 1 1
0 1 0 0 0 0 1
0 1 1 0 0 0 1
1 0 0 1 1 0 0
1 0 1 1 1 1 1
1 1 0 0 1 0 0
1 1 1 0 1 0 0
2-5 таблицы в доке
Var a,sum,i,ii:integer;
begin
sum:=0;
readln(a);
for i:=1 to 4 do
begin
ii:=a mod 10;
a:=a div 10;
sum:=sum+ii*ii;
end;
writeln(sum);
end.
Var num : integer;
....
num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;
256*128=32768 точек
32Кбайт*1024=32768 байт
32768 байт / 32768 точек = 1 байт
в одном байте 256 значений значит ответ d