1 мегабайт-1024 килобайтов, больше 1500килобайтов, 1гигабайт а 1000 килобайтов меньше и 10000битов:1024=9байтов так что они меньше
Если принудительно прекращена работа даной программы в следствии ошибки/завершения её процесса пользователем/системным администратором
СУММ=<u>D2+D3+D4</u>=16;
СРЗНАЧ=(D1+<u>D2+D3+D4</u>)/4=5; (D1+16)/4=5; D1=20-16;<em> D1=4</em>
var
i: integer;
mas: array[1..12] of byte;
begin
randomize;
for i:=1 to 12 do
mas[i]:= random(20) + 1;
writeln('Сумма = ', mas[1]+mas[2]+mas[3]+mas[4]+mas[5]+mas[6]);
end.
Const n=4; m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(1000);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 7=0)and(a[i,j]>99)and(a[i,j]<1000) then a[i,j]:=a[i,j]-10;
writeln('New:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример<span>889 188 17 186 772
394 121 406 679 936
20 147 868 691 450
525 73 575 232 416
New:
879 188 17 186 772
394 121 396 669 936
20 137 858 691 450
515 73 575 232 416
</span>