Насчет третьего - под б) нетривиальный метод(подстановка), но я уверен, что он правильный.
program chislo;
const
n=5;
var
a: array [1..n] of integer;
i,s : integer;
begin
randomize;
s:=1;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to n do
if a[i] mod 5 = 0 then
s:=s*a[i];
if s=1 then
writeln('Нет чисел кратных пяти')
else
writeln('Произведение чисел кратных пяти: ',s);
end.
Ответ будет 3 кбайтов т.к.
<span>30720 бит / 8=3840 байтов
3840/1024=3 килобайта</span>
<span><span>program nazvanie;
</span><span>var a,b,b1,k,k1:integer;
</span>begin<span>
write('Введите трехзначное число: ');</span><span>
readln(a);</span><span>
b:=a;</span><span>
while b<>0 do</span><span> begin</span><span> b1:=b mod 10;</span><span>
if b1 mod 2=0</span><span> then</span><span> k:=k+1</span><span> else</span><span> k1:=k1+1;</span><span>
b1:=b div 10;</span><span>
b:=b1;</span><span>
end;</span><span>
if k>k1</span><span> then</span><span>
write('Кол-во четных цифр больше, чем нечетных в числе ',a)
</span><span>else if k<k1</span><span> then</span><span> write('Кол-во нечетных больше, чем четаных в числе ',a);
</span><span>end.
Немного переделать и будет рабочая прога!</span></span>