Паскаль
Program Pro;
var a:integer;
begin
for a:=1 to 3 do
writeln(random(3));
end.
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
<span>1)const nmax=50;
mmax=50;
var x:array [1..nmax, 1..mmax] of integer;
n,m,i,j,ki: integer;
begin
write('Введите размерность матрицы: ');
readln(n,m);
writeln('Введите элементы матрицы: ');
for i:=1 to n do
for j:=1 to m do
readln(x[i,j]);
writeln('Матрица: ');
for i:=1 to n do
begin
for j:=1 to m do
write(x[i,j]);
writeln(' ');
end;
j:=1;
while (j<=m) do
begin
ki:=0;
for i:=1 to n do
if (x[i,j] mod 2 =0) then ki:=ki+1;
writeln('В столбце',j,': ',ki,' чётных элементов');
j:=j+2;
end;
end.
2)</span>for i:=1 to 5 do begin<span>for j:=1 to 5 do begin
...
if (j mod 2=0) and (a[i,j]>0) then s:=s+a[i];
...
3)</span>int[,] mass = new int[5,6];<span>for(int i=0;i<5;i++)
{ for(int j=0;j<6;j++)
mass[i,j]=Convert.ToInt32(Console.ReadLine());
}
int [] mass2 =new int[6];
int c=0;
for(int i=0;i<6;i++)
{ mass2[c]=1;
for(int j=0;j<5;j++)
{if(mass[j,i]\%2==0&&mass[i,j]>0)
mass2[c]*=mass[j,i]}
c++;
}
for(int i=0;i<6;i++)
{ Console.WriteLine(mass2[i]);
}
Console.ReadLine()<span>;</span></span>
program shegor2003;
var a:array[1..10] of integer;
i, temp:integer;
begin
for i:= 1 to 10 do
a[i]:=random(11);
writeln('Исходный массив:');
for i:= 1 to 10 do
write(a[i]:3, ' ');
writeln;
temp:=a[1];
a[1]:=a[10];
a[10]:=temp;
writeln('Преобразованный массив:');
for i:= 1 to 10 do
write(a[i]:3, ' ');
end.
1 =3,4*x+y
2 =(x+y)*z
3 =0,8*x+0,9*y-x*y
4 =(x+z)*y+0,1*z
5 =(x-z)*z+y*x
6 =(15*x^2-(7/12)*y)/(18*y+x^2)
7 =(40*y^3+(4/9)*x)/(6*x^2-18*x*y)
8 =(30*(x^3-(5/6)*y))/(5*(x^3-6*y))