Дано: 128 = 2^7 цветов
256*1280 - разрешающая способность
решение:
256*1280*7 = 2293760 бит = 286720 байт = 280 Кб
№1
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
--------------------------------
№2
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; mass[i][3] := 1; mass[3][i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
Program perimetr и есть оно)
Формотирование нужно осуществлять для того чтобы исправить ошибки и т.д. На этом этапе совершаются различные операции по приданию документу таког вида , который он будут иметь на бумаге.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(1,ReadInteger('n=')).Println
end.
<u>Пример</u>
n= 20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
