Program p1;
var
a:array[1..7,1..7] of byte;
i,j:byte;
begin
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if i<=4 then
if (j>=i) and (j<=8-i) then a[i,j]:=1 else a[i,j]:=0
else
if (j<=i) and (j>=8-i) then a[i,j]:=1 else a[i,j]:=0;
Write(a[i,j]:2)
end;
Writeln
end
end.
<em><u>Результат выполнения программы:</u></em>
1 1 1 1 1 1 1
0 1 1 1 1 1 0
0 0 1 1 1 0 0
0 0 0 1 0 0 0
0 0 1 1 1 0 0
0 1 1 1 1 1 0
1 1 1 1 1 1 1
program p2;
var
a:array[1..6,1..6] of byte;
i,j:byte;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=i+j-1;
if a[i,j]>6 then a[i,j]:=a[i,j]-6;
Write(a[i,j]:2)
end;
Writeln
end
end.
<em><u>Результат выполнения программы:</u></em>
1 2 3 4 5 6
2 3 4 5 6 1
3 4 5 6 1 2
4 5 6 1 2 3
5 6 1 2 3 4
6 1 2 3 4 5
Староста это глава в классе.Тот кто смотрит за посещаемостью.Помогает тем кто плохо учится.Староста класса-избарнный классом и учителем.
1) var m,n,z,i,b,count: Integer;
begin
writeln('Введите кол-во рядов');
readln(m);
writeln('Введите кол-во мест в каждом ряду');
readln(n);
writeln('Сколько билетов куплено?');
readln(z);
for i:=1 to m do
begin
for b:=1 to n do
begin
Inc(count);
end;
end;
if (z=count) or (z<count) then writeln('Хватит') else
if z>count then
writeln('Не хватит');
end.
2) var a,b,c: Integer;
begin
writeln('Введите числа a и b');
readln(a,b);
c:=a+b;
if c>10 then
begin
a:=a*5;
b:=b*5;
end;
if (c=10) or (c<10) then
begin
a:=a-5;
b:=b-5;
end;
writeln('a - ',a);
writeln('b - ',b);
end.
3) var x: Real;
begin
writeln('Введите x');
readln(x);
if x<4 then writeln(sqrt(x+1));
if x>4 then writeln(2.5*x-2);
if x=4 then writeln(3*(x*x)-1);
end.
4) program z1;
var i,j,x:integer;
begin
for i:=1 to 9 do
for j:=1 to 9 do
for x:=1 to 9 do
begin
if (i<j) and (j<x) then write(i,j,x);
writeln;
end.
5) program z1;
var i,j:integer;
begin
for i:=1 to 9 do
for i:=1 to 9 do
writeln(i,j,j,i);
end.
6)program z1;
var a:real
i:integer;
begin
readln(a);
for i:=1 to 10 do
writeln(a,'*',i,'=',a*i);
end.
7)program z1;
var a,b,x:real;
begin
readln(a,b);
for x:=(-10) to 10 do
writeln('x=',x,' y=',(a*x+b));
end.
<span>Пусть Х –количество мониторов фирмы D.
Id= 2 бит</span>
<span>Pd=x/(6+7+11+Х)
1/p=2^I,
(24+Х)/x= 2</span>²<span> 24+Х = 4X, следовательно Х = 8.
Ответ:8</span>