Шестнадцатиразрядным (16 бит)
1)
uses crt;
var x,y,pr:integer;
begin
read(y,x);
pr:=1;
repeat
pr:=pr*y;
x:=x-1;
until x=0;
write(pr);
end.
2)
uses crt;
var
a:array[1..10] of integer;
pr,i,k:integer;
begin
for i:=1 to 10 do
read(a[i]);
clrscr;
pr:=1;
for i:=1 to 10 do
begin
if a[i]<0 then k:=k+1;
if a[i]>0 then pr:=pr*a[i];
end;
writeln('Исходный массив: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
if k<>0 then writeln('Отрицательных элементов: ',k) else writeln('Отрицательных элементов нет');
write('Произведение положительных элементов равно: ',pr);
end.
<u><em>1110010</em></u><em> - 2⁰*0+2¹*1+2²*0+2³*0+2⁴*0+2⁵*1+2⁶*1=114</em>
Var S, P, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
writeln('S = ', S, 'P = ', P);
end.
Заменяем буквы цифрами
А=0
К=1
Р=2
У=3
Слова соответствуют числам четверичной системы счисления, т.к. в алфавите всего четыре буквы, и слова записаны в алфавитном порядке.
Слово УКАРА = 31020(3) = 840 в десятичной
840 будет записано под номером 841.
Ответ: 841