Const n=30;
var a:array[1..n] of integer;
i,min:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] div 100>=1) and(a[i]<min) then min:=a[i];
end;
if (min=1000) then writeln('Такого числа нет')
else writeln('Минимальное 3-значное число равняется ',min);
<span>end.</span>
2016₈ = 2·8³ + 0·8² + 1·8¹ + 6·8⁰ = 2·512 + 0·64 + 1·8 + 6·1 = 1024 + 8 + 6 = 1038₁₀
2014₅ = 2·5³ + 0·5² + 1·5¹ + 4·5⁰ = 2·125 + 0·25 + 1·5 + 4·1 = 250 + 5 + 4 = 259₁₀
А)маркированный список б)многоуровневый нумерованный список в)таблица г)нумерованный список д)многоуровневый маркированный список
<span><span>Дано | Решение
m1=20г | n(дискет)=80000000/1440=55555(количество)
<span>
дискета=1440 Кбайт | m2=n(дискет)*m1=55555.6*20=1111111(г)
</span>
<span>
ж.д=80Гб
</span>
</span></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>