1)в некоторой системе счисления записи десятичных чисел 68 и 94 заканчиваются на 3. определите основание системы счисления. 2)в некоторой системе счисления записи десятичных чисел 41 и 63 заканчиваются на 8. определите основание системы счисления. 3)в некоторой системе счисления записи десятичных чисел 56 и 124 заканчиваются на 5. определите основание системы счисления. решите подробно!

1) основание сс 13 2)  основание сс 11 3)  основание сс 17

unit math;

var

    d,m: array[1..20] of integer;

    sr: real;

    kol,s: integer;

begin

  for i: =1 to 20 do begin

      d[i]: =randomrange(140,180);

      writeln('рост ',i,'-ой девочки =',d[i],' см');

      m[i]: =randomrange(140,190);

      writeln('рост ',i,'-го мальчика= ',m[i],' см');

  end;

  s: =0; sr: =0; kol: =0;

  for i: =1 to 20 do s: =s+m[i];

  sr: =s/20;

  writeln('средний рост мальчиков= ',sr,' см');

  for i: =1 to 20 do

  if d[i]> sr then kol: =kol+1;

  writeln('колличество девочек превышающий средний рост мальчиков= ',kol);

end.

 

var

a: array [1..100,1..100] of integer;

n,m,i,j: byte;

sr: real;

sum: integer;

 

begin clrscr;

 

writeln('введи кол-во строк: ');

readln(n);

writeln('столобцов: ');

readln(m);

 

randomize;

for i: =1 to n do

  for j: =1 to m do

  a[i,j]: =random (10)+0;

 

sum: =0;

 

for i: =1 to n do

  for j: =1 to m do

  sum: =sum+a[i,j];

 

sr: =sum/(n*m);

 

writeln('среднее арифметичексое: ',sr);

readkey;

end.

 

p.s.

могу напутать с типами данных