Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);
for i:=1 to n dofor j:=1 to n doif a[i,j] mod n =0 then a[i,j]:=a[i,j] div n;
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.
z10)
var A, B, C: integer;
begin
write('Введите A, B, C: '); readln(A, B, C);
writeln('Сумма = ', A + B + C);
writeln('Произведение = ', A * B * C);
end.
z11)
var a,s,v:integer;
begin
writeln('Введите длинну куба: ');
readln(a);
s:=6*a*a;
v:=a*a*a;
writeln('Объем = ', v);
writeln('Площадь боковой поверхности = ', s);
end.
z13)
var A, B, C: integer;
begin
A := 20; B := 13;
C := A;
A := B;
B := C;
writeln('A = ', A);
writeln('B = ', B);
end.
z14)
var A, B: integer;
begin
A := 20; B := 13;
A:=A+B;
B:=A-B;
A:=A-B;
writeln('A = ', A);
writeln('B = ', B);
end.
Иерархия - это расположение служебных статусов или званий, начиная от низких к высоким званиям.
Дерево - это большое растение, у которого имеется твёрдый ствол, также подходит определение мебель древесина.
Корень дерева - это скорее всего вершина дерева.
Предок - это дальний по роду человек.
Потомок - это такой человек, происходящий из определённого рода.
Листья - это один из главных органов какого-либо растения, который всегда находится снаружи.
Const N = 40;
var
a:array[1..N] of integer;
i,j,s:integer;
st:real;
begin
for i:=1 to N do readln(a[i])
s:=0; st:=0;
for i:=1 to N do
if (a[i]>9)and(a[i]<100)and(a[i] mod 2=0) then
begin s:=s+1; st:=st+a[i];end;
if s>0 then writeln('Среднеарифметическое = ',st/s:4:1)
else writeln('Искомых чисел нет');
end.
Пример (для n=20):
<span>416
295
-848
-881
-325
-690
139
-220
992
607
-998
400
720
-536
757
-123
-559
-941
22
-748
Среднеарифметическое = 22.0</span>