Основание позиционной системы счисления x, при котором 104х = 555у, подробное решение, если можно. заранее !

То есть  , это одно из решений 

Program n1; uses crt; var  a: array[1..30,1..30] of integer;   k,m,i,j,s: integer; begin  for i: =1 to 18 do begin   for j: =1 to 12 do begin   a[i,j]: =random(5001)+5000;   write(a[i,j]: 6);   end;   writeln;   end;   writeln;   s: =0;     for i: =1 to 18 do   s: =s+a[i,6];     writeln('summa: ', s); end.высчитывает все правильно. зарплату поставил от 5000 до 10000 тысяч рублей, строкой a[i,j]: =random(5001)+5000; (b-a+1)+a - формула для расчета интервала чисел, т.е. зарплату поставил от 5000 до 10000, получается: a = 5000b = 10000(10000-5000+1)+5000 = (5001)+5000; если захочешь поменять сумму зарплаты, думаю поймешь теперь как.  for i: =1 to 18 do     s: =s+a[i,6];   - этой строкой изменяю i (т.е. работников), а j оставляю неизменным и равным 6, так как июнь 6-ой месяц по счету.

1  способ: var n,i,pr: integer; begin read (n); pr: =1; if (n> =1) then begin for i: =1 to n do begin pr: =pr*i; end; end else writeln ('неправильный ввод'); writeln (pr); end. 2  способ: var n,i,pr: integer; beginread (n); pr: =1; if (n> =1) thenbeginfor i: =1 to n dobeginpr*=i; end; end elsewriteln ('неправильный ввод'); writeln (pr); end.3 способ: var n,i: integer; function fact(n: integer): integer; beginif n=1 then fact: =1else fact: =fact(n-1)*n; end; beginread(n); i: =fact(n); writeln(i); end.