Решить ребус на паскале, : a+ab+abc=bcb

Uses crt; var a,b,c: integer; begin for a: =1 to 9 do     for b: =1 to 9 do         for c: =0 to 9 do         if a+10*a+b+100*a+10*b+c=100*b+10*c+b             then writeln(a,' ',b,' ', c); end.

45₁₀ = 55₈

45₁₀ = 2D₁₆

98₁₀ = 142₈

98₁₀ = 62₁₆

127₈ = 87₁₀

1С₁₆ = 28₁₀

Объяснение:

45 / 8 = 5 + остаток 5

5 / 8 = 0 + остаток 5

записываем остатки снизу вверх

45₁₀ = 55₈

В качестве цифр 16 СС используются цифры от 0 до 9 и латинские буквы от A до F.

А = 10₁₀   B = 11₁₀   C = 12₁₀   D = 13₁₀   E = 14₁₀   F = 15₁₀

45 / 16 = 2 + остаток 13

2 / 16 = 0 + остаток 2

записываем остатки снизу вверх

45₁₀ = 2D₁₆

98 / 8 = 12 + остаток 2

12 / 8 = 1 + остаток 4

1 / 8 = 0 + остаток 1

записываем остатки снизу вверх

98₁₀ = 142₈

98 / 16 = 6 + остаток 2

6 / 16 = 0 + остаток 6

записываем остатки снизу вверх

98₁₀ = 62₁₆

127₈ = 1 * 8² + 2 * 8¹ + 7 * 8⁰ = 1 * 64 + 2 * 8 + 7 * 1 = 64 + 16 + 7 = 87₁₀

В качестве цифр 16 СС используются цифры от 0 до 9 и латинские буквы от A до F.

А = 10₁₀   B = 11₁₀   C = 12₁₀   D = 13₁₀   E = 14₁₀   F = 15₁₀

1С₁₆ = 1 * 16¹ + С * 16⁰ = 1 * 16 + 12 * 1 = 16 + 12 = 28₁₀

ответ

2,0/5

2

yasadc

1)uses crt;

const m=5;

n=5;

var a:array[1..m,1..n] of integer;

b:array[1..m] of integer;

i,max,min,j,k,p:integer;

begin

randomize;

for i:=1 to m do

for j:=1 to n do

a[i,j]:=random(20);

min:=20;

max:=0;

for i:=1 to m do

begin

for j:=1 to n do

write(a[i,j]:3);

writeln;

end;

writeln;

k:=1;

repeat

for i:=k to k do

for j:=1 to n do

begin

if (a[i,j]<min) then begin min:=a[i,j]; b[k]:=a[i,j]; end;

end;

inc(k);

min:=20;

until k>n;

for p:=1 to m do

if (b[p]>max) then max:=b[p];

writeln(max);

end.

Объяснение: