Const n=8;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,i]:=n-i+1;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:2);
writeln;
end;
end.
Пример:
8 0 0 0 0 0 0 0
0 7 0 0 0 0 0 0
0 0 6 0 0 0 0 0
0 0 0 5 0 0 0 0
0 0 0 0 4 0 0 0
0 0 0 0 0 3 0 0
0 0 0 0 0 0 2 0
0 0 0 0 0 0 0 1
Вот код, но я делал проверку используя while
Сколько цветов в изображении?
если только 8 основных, тогда 1 точка 3 бита
получаем размер изображения 10*100*3=3000 бит
Переведем биты в байты, 3000/8= 375 байт
Ответ: 375 байт
2,5,1 (слоговая,звуковая и иероглифическая
Собрать больше бензина чтоб из точки а быстрее ехать в б