До якої категорії належь функція знаходження значень: TRUE та FALSE​

a) Переводим целую часть 91(10) в 2-ую систему последовательным делением на 2:

91/2 = 45, остаток: 1

45/2 = 22, остаток: 1

22/2 = 11, остаток: 0

11/2 = 5, остаток: 1

5/2 = 2, остаток: 1

2/2 = 1, остаток: 0

1/2 = 0, остаток: 1

91(10) = 1011011(2)

б)Переводим целую часть 675(10) в 8-ую систему последовательным делением на 8:

675/8 = 84, остаток: 3

84/8 = 10, остаток: 4

10/8 = 1, остаток: 2

1/8 = 0, остаток: 1

675(10) = 1243(8)

в)Переводим целую часть 270(10) в 16-ую систему последовательным делением на 16:

270/16 = 16, остаток: 14, 14 = E

16/16 = 1, остаток: 0

1/16 = 0, остаток: 1

270(10) = 10E(16)

Объяснение:

1.
var n,i:integer;
mass:array[1..10000] of integer;
begin
writeln('Введите кол-во чисел');
read(n);
for i:=1 to n do
begin
write('mass[',i,']=');
read(mass[i]);
end;
writeln('Элементы массива которые четные и двухначные');
for i:=1 to n do
if (mass[i] mod 2=0) and (mass[i] div 10>0) and (mass[i] div 10<10) then write(mass[i]:4);
end.
2.
var n,i:integer;
mass:array[1..10000] of integer;
begin
writeln('Введите кол-во чисел');
read(n);
for i:=1 to n do
begin
write('mass[',i,']=');
read(mass[i]);
end;
writeln('Элементы массива которые кратны 4 и трехзначные');
for i:=1 to n do
if (mass[i] mod 4=0) and (mass[i] div 100>0) and (mass[i] div 100<10) then write(mass[i]:4);
end.
3.
var i,a,m:integer;
begin
m:=3;
for i:=1 to 10 do
writeln(i,' * ',m,' = ',i*m);
end.