Program ok;
var
num:integer;
a,b,c:integer;
begin
readln(num);
a:=num mod 10; num:=(num-a)div 10;
b:=num mod 10; num:=(num-b)div 10;
c:=num;
num:=a+b+c;
if num or 1 = num then
writeln('Нечетное') else writeln('Четное');
readln;
<span>end.</span>
Формулы указаны в первой строке. Поэтому только голые цифры.
8 --- 8 = 2^i --- i = 3 --- 200 --- 600
16 --- 16 = 2^i --- i = 4 --- 110 --- 440
64 --- 64 = 2^i --- i = 6 --- 120 --- 600
128 --- 128 = 2^i --- i = 7 --- 100 --- 700
256 --- 256 = 2^i --- i = 8 --- 80 --- 160
Размерности писать не нужно
ЭВМ- это электронно - вычислительная машина.