Uses crt;
var m:array[1..4,1..5] of integer;
b:array[1..4] of integer;
min,i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(35)-30;
end;
<span>end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(m[i,j]:3,' ' );
writeln;
end;
min:=m[1,1];
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
if min>m[i,j] then min:=m[i,j];
end;
b[i]:=min;
min:=m[i+1,1];
end;
for i:=1 to 4 do
writeln(i,') ',b[i]);
readkey;
end.
</span>
Ответ:
-8
Объяснение:
Составим уравнение
(((11 + 5) / d) + 5 + 5) / d = -1
16 = -d² - 10d
d² + 10d + 16 = 0
d₁ = 2 d₂ = -8
По условию d < -5
d = -8
Проверка:
11 + 5 = 16
16 / -8 = -2
-2 + 5 = 3
3 + 5 = 8
8 / -8 = -1
var i,a,z:integer;
begin
for i:=1 to 5 do
begin
read(z);
if not( z mod 2 = 0) then a:=a+z;
end;
write('sum=',a);
end.
Просто дели его до конца на 2, остатки - это и есть результат перевода.
333 = 101001101
1) 3
2) 1
3) 1
4) 4
5) 1
6) 1