Uses graphabc;
procedure vvod(var a,b: integer);
begin
writeln('Введите ширину отступа');
read(a);
writeln('Введите ');
read(b);
end;
procedure squares(r,nachdl: integer);
var x1,y1,x2,y2: integer;
begin
y1:=0;
x1:=0;
x2:=nachdl;
y2:=nachdl;
while x2<windowheight do
begin
drawrectangle(x1,y1,x2,y2);
x2:=x2+r;
y2:=y2+r;
nachdl:=nachdl+r;
end;
end;
var
r,nachdl: integer;
begin
vvod(r,nachdl);
squares(r,nachdl);
<span>end.</span>
Каталог (как то так,напишу еще че нить,ибо так 20 символов)
APPLE FOR DINNER Как то так
При использовании палитры из 4 цветов для хранения одной точки изображения требуется log(2)4 = 2 бита.
Объем видеопамяти:
640*350*2 бит = 448000 бит = 448000/8 байт = 56000 байт
//Листинг программы и скриншот работы - в приложениях.
//Написано на PascalABC.NET но будет работать в простом Паскале
const
max = 12;
var N,i,j:byte;
sum:integer;
ar:array[1..max, 1..max] of integer;
begin
writeln('Вычислить сумму диагональных элементов квадратной матрицы');
write('Введите размер матрицы N = ');
readln(N);
for i:=1 to N do begin
for j:=1 to N do begin
ar[i,j]:=random(-12,12);//любые числа
write(ar[i,j]:6);
end;
writeln();
end;
sum:=0;
for i:=1 to n do
for j:=1 to n do
if ( i = (n-j+1) ) or ( i = j ) then
sum:=sum+ar[i,j];
writeln('Сумма sum = ', sum);
end.