На самом деле это не сложно. Информатика в школе - это вообще несложно. Поверь. Вот смотри, в условии - числа не больше 18 и не меньше 18, то есть 18 мы можем использовать и там и там. Тогда 18 будет в клетке (3;3), а остальные числа располагаем по условие, те, что меньше 18 по горизонтали, а те что больше 18 по вертикали.
1)8^10=2^3^10 2^30/2^10(Кбайт)2^10=2^10=1024 <span>Мбайт</span>
2) A= K*b
Надо перевести в биты 4Кб=2^2*2^13=2^15
K=2^15/2^4=2^11=2048 c
Вот ответ. Надеюсь, помогла.
var a:array[1..100] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i] mod 3 = 0 then begin
s:=s+a[i];
end; end;
writeln('summa chisel kratnx 3 = ', s);
readln;
end.