1) Вычисляем длины всех его сторон
<em>var a, b, i, c :integer;</em>
<em>begin</em>
<em> read (a, b); </em><em>// вводим a и b </em>
<em> for i:=1 to 5 do</em>
<em> begin</em>
<em> c:=random(b-a)+a; </em><em>// присваиваем рандомные числа в заданном </em><em>промежутке</em>
<em> writeln (c); </em><em>// выводим число</em>
<em> end;</em>
<span><em>end.</em></span>
For i 1 to 10 do
if a[i]=0 then
inc(k)
=====
for i 10 downto 1 do
write(a[i]:4:2)
Если не использовать строки, то решение может быть таким:
var n,k,st:integer;
begin
write('n='); readln(n);
k:=0; st:=1;
while n>0 do
begin
if n mod 10 <> 0 then
begin
k:=(n mod 10)*st+k;
st:=st*10;
end;
n:=n div 10;
end;
writeln(k);
<span>end.
</span>