===== PascalABC.NET =====
begin
var n := 5;
var m := MatrRandom(n, n, -15, 25);
m.Print(4);
Writeln;
for var i := 0 to n -1 do
Write(m[i, i]:4)
end.
1 байт = 8 бит
1 кбайт = 1024*8 бит = 8192 бит
3 кбайта = 3*8192 бит = 24576
Оператор условия.
Если (действие, утверждение), то.... иначе....
Int A[6];
bool B = false;
for(int i = 0; i < sizeof(A); i++) {
A[i] = random(6);
if(i > 0 && A[i-1] == A[i])
B = true;
}
cout << "Массив: " << A[0] << A[1] << A[2] << A[3] << A[4] << A[5] << endl;
if(B == true)
cout << "Есть" << endl;
else
cout << "Нет" << endl;
const
n = 7;
var
y: <em>real</em>;
i: <em>integer</em>;
begin
for i := 1 to n do
y := y + n / i;
writeln(y);
end.