Var a:array[1..4,1..6] of integer;
i,j,p,n:integer;
begin
p:=1;
n:=1;
for i:=1 to 4 do
for j:=1 to 6 do
read(a[i,j]);
for j:=1 to 6 do
p*=a[3,j];
writeln(p);
<span>end.</span>
3D-принтер.
3D-принтер — это периферийное устройство, использующее метод послойного создания физического объекта по цифровой 3D-модели. 3D-печать может осуществляться разными способами и с использованием различных материалов, но в основе любого из них лежит принцип послойного создания (выращивания) твёрдого объекта.
//PascalABC.NET
//Версия 3.3, сборка 1634
function f(n: integer): integer;
begin
var fx:=1;
for var i:=2 to n do fx:=fx*i;
f:=fx;
end;
begin
var n:=ReadInteger('n=');
for var i:=0 to 9 do writeln('цифра ',i,' повторяется в числе ',f(n),' ',f(n).ToString.Where(x->x.ToDigit=i).Count,' раз' );
end.
В документе Word выделите текст, который нужно преобразовать в объект WordArt.
На вкладке Вставка нажмите кнопку WordArt и выберите нужный стиль WordArt.
Ответ:
1.
uses Robot;
begin
Task('w3');
while wallfromdown do right
end.
2.
uses Robot;
begin
Task('w8');
while wallfromdown do right;
left;
while wallfromdown do
begin
paint;
left
end
end.