2. вычислите десятичные эквиваленты следующих чисел : 2017(8) 2017(7) 2017(6) 2017(5) 3. укажите номера - id804962720200919 от ViktorNiktophorov 19.09.2020 22:43

Question

Информатика: 2. вычислите десятичные эквиваленты следующих чисел : 2017(8) 2017(7) 2017(6) 2017(5) 3. укажите номера чисел в последовательности по возрастанию : 11(5) 101(6) 1100110(2) 4. сравните числа 8(10) 8(9) 7(10) 7(9) 1001(2) 333(4) 5. найдите значения x, для которых верны следующие равенства 12x=9(10) 23x=15(10) 101x=17(10) 15x=9(10)

ViktorNiktophorov · Accepted Answer

Program gt2;
var i,j,s:integer;
a:array[1..4,1..4]of integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(7)+12;
for i:=1 to 4 do
begin
s:=0;
for j:=1 to 4 do
s:=s+a[j,i];
writeln(s);
end;
end.

program gt3;
var i,j,s:integer;
a:array[1..7,1..7]of integer;
begin
randomize;
for i:=1 to 7 do
for j:=1 to 7 do
a[i,j]:=random(7)+12;
for i:=1 to 7 do
begin
s:=0;
for j:=1 to 7 do
if(a[j,i]<14)then s:=s+1;
writeln(s);
end;
end.

program gt4;
var i,j,p:integer;
a:array[1..3,1..3]of integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
for i:=1 to 3 do
begin
p:=a[i,1];
a[i,1]:=a[i,2];
a[i,2]:=p;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j],' ');
end;
writeln;
end;
end.

MOGZ ответил