program p1;
uses graphabc;
var a,k,k2: integer;
begin
readln(a);
a: =a*20;
setpenwidth(1); //размер кисти, если большой, то лучше видно пунктир, маленький - качество и точность
setwindowsize(4*a,3*a);
k: =round(a/2);
k2:
=round(0.43*a);
rectangle(a,a+k,2*a,2*a+k); //прямоугольник - передняя часть куба
line(a,a+k,a+k2,a); // левое верхнее ребро
line(2*a,a+k,2*a+k2,a); //правое верхнее ребро
line(2*a,2*a+k,2*a+k2,2*a); //правое нижнее ребро
line(a+k2,a,2*a+k2,a); // заднее верхнее
ребро
line(2*a+k2,a,2*a+k2,2*a); //правое заднее ребро
setpenstyle(psdash); // выбрать тип пера - пунктир
line(a+k2,a,a+k2,2*a); //заднее левое ребро
line(a,2*a+k,a+k2,2*a); //нижнее левое ребро
line(a+k2,2*a,2*a+k2,2*a); //заднее нижнее ребро
end. (программа по
созданию кубов если тебе понравился мой ответ ставь ! )
var a:array[1..2,1..7] of integer;
b:array[1..7] of integer;
i,j,s:integer;
begin
for i:=1 to 2 do
begin
for j:=1 to 7 do
begin
a[i,j]:=random(10);
write (a[i,j]:2,' ')
end;
writeln
end;
writeln;
for j:=1 to 7 do
begin
s:=0;
for i:=1 to 2 do s:=s+a[i,j];
b[j]:=s;
end;
for i:=1 to 7 do write (b[i]:2,' ')
end.