const
n = 6;
var
i, j, k: integer;
a: array [1..6, 1..6] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if (i = j) or (j = 1) or (i = 1) or (i = 6) or (j = 6) then
a[i, j] := 1
else
a[i, j] := 0;
write(a[i, j]:3);
end;
writeln();
end;
end.
Var a,b,c:integer; //стороны
begin
writeln('Введите длины сторон:');
read(a,b,c);
if (a=b)and(a=c)and(b=c) then
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
end.
Еще 3D принтеров...
ну а так всё ограничивается только фантазией, знанием и законом
Ответ:
разрешено всё что не запрещено?
или запрещено всё что не разрешено?
запрещены информации об изготовлении или получении наркотиков, порн0графия, способы совершения сYицида и призывов к его совершению, призывы к разжиганию национальной розни, к военным действиям, информация предлагающая купить фальшивые документы, оружие, информация об изготовлении ядов, бомб и тому подобное, экстремизм, оскорбление чувств верующих.
Не видно, я ничего разобрать не могу