262144 байта/ 1024= 256 кбайт/ 1024=0,25 мбайт
В ячейку В2 вводите формулу, как показано на рисунке, а дальше действуете мышкой
Var i,n,k:integer;
a:array[1..12] of integer;
begin
write('Write k: '); readln(k);
for i:=1 to 12 do
begin
a[i]:=Random(70)-10;
write(a[i]:5);
end;
writeln;
for i:=1 to 12 do
If a[i] mod k=0
then write(k:3,a[i])
else write(a[i]:5);
readln
end.
//На Pascal
const N = 40;
var a: array [1..N] of longint;
i,k: longint;
begin
for i := 1 to N do
readln(a[i]);
k := 0;
for i := 1 to N - 1 do
if ((a[i] + a[i + 1]) mod 6 <> 0) and (a[i] * a[i + 1] <1000) then
k:=k+1;
writeln(k);
<span>end.</span>