Один ученик написал: " у меня 100 конфет. я поровну разделил их между мной и моими друзьями. каждому досталось по 11 конфет и одна осталась лишней. какую систему счисления использовал ученик и сколько у него было конфет в десятичной системе счисления?

100(k)=k²(10) k²=11*m+1 k=√(11*m+1) так как k и m должны быть целыми то получиться 2 варианта k=10 k=12 при k=10 у него 100 конфет при k=12 у него 144 конфет ответ: в 10тичной или в 12-ричной системе

Var a,b,c,d,x,y,z,y1,z1,y2,z2,nod: integer; begin writeln('1-я дробь (числитель и знаменатель): '); readln(a,b); writeln('2-я дробь (числитель и знаменатель): '); readln(c,d); y1: =a*d+c*b; y2: =y1; z1: =b*d; z2: =z1; while (y2> 0)and(z2> 0) do   if y2> z2 then y2: =y2 mod z2 else z2: =z2 mod y2; nod: =y2+z2; y1: =y1 div nod;   z: =z1 div nod; x: =y1 div z; y: =y1 mod z; if x> 0 then writeln(x,' ',y,'/',z) else writeln(y,'/',z); end. пример: 1-я дробь (числитель и знаменатель): 1 10 2-я дробь (числитель и знаменатель): 2 5 1/2

Const n=10;   var a: array[1..n] of integer; i,k: integer;   begin writeln('исходный массив: '); a[1]: =random(10); write(a[1],'   '); for i: =2 to n do   begin   a[i]: =a[i-1]+random(10);   write(a[i],'   ');   end; writeln; k: =1; for i: =2 to n do  if a[i-1]< > a[i] then k: =k+1; writeln('k = ',k); end. пример: исходный массив: 9   18   19   19   28   32   38   41   41   47   k = 8