Программа... Вообщем непонятно что делает. Убирает последние три цифры у числа, затем Эти самые три цифры умножает на переменную "b", и так повторяется, пока это число не станет меньше 1000.
Вообщем... Ответ: 1011. Не парься
<span><span>1)
</span>океан
</span><span><span>a)
</span>Тихий океан</span><span><span>
b)
</span>Индийский океан </span><span><span>
2)
</span>море
</span><span><span>a)
</span>Черное море
</span><span><span>b)
</span>Азовское море
</span><span><span>c)
</span>Карибское море </span><span><span>
d)
</span>Средиземное море
</span><span><span>3)
</span>река </span><span><span>
a)
</span>Волга, </span><span><span>
b)
</span>Днепр
</span><span><span>c)
</span>Нил</span><span><span>
d)
</span>Ангара</span><span><span>
4)
</span><span> озеро </span></span><span><span>
a)
</span>Байкал, </span><span><span>
b)
</span>Иссык-Куль
</span><span><span>c)
</span>Мичиган,
</span><span><span>d)
</span>Гусь</span>
<span><span>e)
</span>Плещеево озеро.</span>
<span />
Program gt;
label 1;
var a:array[1..30]of integer;
i,min:integer;
begin
randomize;
min:=200;
1:
for i:=1 to 30 do
begin
a[i]:=random(101);
if(a[i]<min)and(a[i]>=20)then min:=a[i];
end;
if(min<>200)then begin
for i:=1 to 30 do
write(a[i],' ');
writeln;
writeln(min);
exit;
end;
if(min=200)then goto 1;
end.