Обозначаем основание за x. если число записывается в этой сс как , то оно равно . здесь: если уважаете только системы счисления с натуральными основаниями - ответ 5, иначе - 5 или -11/2.
Rizhov Alekyan325
26.07.2020
Program sh; var j: integer; massiv: array [1..1000] of integer; begin; begin; randomize; for j: =1 to 1000 do massiv[j]: =random(1000); end; for j: =1 to 1000 do begin; if (massiv[j] mod 1=0) then if (massiv[j]> 0) and (massiv[j] mod massiv[j]=0) then write (massiv[j]: 5); end; end. я не понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.
ПогальниковАлёна589
26.07.2020
Program sr; var a,m,c: integer; massiv: array [1..10] of integer; begin; a: =0; writeln ('введи искомый рост'); read (m); randomize; for c: =1 to 10 do begin; massiv[c]: =random(100,200); end; begin; for c: =1 to 10 do if massiv[c]> m then a: =a+1; end; writeln (a,'учеников выше',m,'см'); end.