2^12 бит = 4096 бит. в одном байте - 8 бит. 4096 бит = 512 байт. в 1 Кбайте - 1024 байта => 2^12 бит = 1/2 Кбайт
Я только мыслю, ничего не печатаю, ничего не говорю, а машина меня понимает, словно мой мозг - часть машины
<span>var s,k: integer;
// описали переменные, которые будут использованы в программе: s и k целые числа
begin
s:= 500;
// переменной s присвоили начальное значение 500
for k:= 4 to 10 do
// организовали цикл для k от 4 до 10 с шагом 1. То есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, ... k=10)
s:= s - 2*k;
// для каждого k поочередно считаем s:
// k=4 -- s=500-2*4=492
// k=5 -- s=492-2*5=482
</span>// k=6 -- s=482-2*6=470
// k=7 -- s=470-2*7=456
// k=8 -- s=456-2*8=440
// k=9 -- s=440-2*9=422
// k=10 -- s=422-2*10=402<span>
write (s);
// выводим на экран итоговое значение s: 402
end.</span>
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.
Program gt;
var n,i:integer;
a:array[1..1000]of integer;
begin
randomize;
read(n);
for i:=1 to n do
a[i]:=random(40)-20;
for i:=1 to n do
begin
write(a[i]:4,' ');
if(i mod 4=0)then writeln;
end;
for i:=1 to 4-n mod 4 do
write(0:4,' ');
end.