const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
Безусловный цикл - цикл, выход из которого в программе не предусмотрен.
Цикл с предусловием - цикл, условие которого проверяется перед выполнением тела цикла. С постусловием - проверяется после.
Смотри в одном мегабайте - 1048576 байтов,
Значит в 189 мегабайтах -198180864 байта
Место цифры в записи числа в позиционной системе счисления называется - <span>разряд.</span>