// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=8; var a:=new real[n,n]; var k:=1; for var i:=0 to n-1 do for var j:=0 to n-1 do begin if i.IsEven then a[i,n-1-j]:=k else a[i,j]:=k; k+=1 end; a.Println(3,0) end.
ОК, всё это циклы. 1) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик увеличивается на 1. Пример: for a:=1 to 10 do //Цикл будет выполнен 10 раз 2) Цикл for (цикл с счётчиком), при этом при каждом шаге цикла счётчик уменьшается на 1. Пример: for a:=10 to 1 do //Цикл будет выполнен 10 раз 3)Цикл с постусолвием. Если условие не выполняется, выполняется цикл. Его особенность заключается в том, что цикл выполнится хотя бы один раз вне зависимости от условия. Пример: k:=0; repeat inc(k); until k<9 //10 раз 4)Цикл с предусловием. Пока условие выполняется, выполняется и цикл. Пример: k:=0; while k<>10 do inc(k); //10 раз
256 цветов = 2 в степени 8 цветов, значит одна точка занимает 8 бит = 1 байт
10*10 = 100 точек. 100*1=100 байт или 100*8=800 бит.
ответ: 100 байт