Const
n = 4;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
for i := 1 to n * n do
a[i mod n + 1, (i-1) div n + 1] := random(10);
for i := 1 to n do
begin
writeln();
for j := 1 to n do
begin
if i = j then a[i, j] := 0;
write(a[i, j]:3);
end;
end;
end.
Program Lloyd;
varx,y,z: real;
begin
y:=(((30*4)-30)/3)*365;
write('nakopleniya Pole za god = ', y);
readln (y);
<span>end.</span>
Умножаем высоту пикселей на ширину пикселей и умножаем на глубину цвета т.е. на кол-во цветов если делать на 8-байты на 1024 килобайты
1) Берем лист бумаги, разлиновываем на квадратики, в каждый вписываем числа, начиная от 1. Кидаем на листик монетку. В какой квадрат упадет, то число и выбираем.
2) Берем несколько игральный кубиков. Кидаем, подсчитываем сумму выпавших очков.
3) Берем колоду 36 карт, вытаскиваем карту наугад. Туз 1, валет 2, дама 3, король 4, 10- 5, карты от 6 до 9 - соответственно 6-9.