Запишите максимальное и минимальное четырехзначные числа : в 2 системе счисления, в 4,6,8 системах счисления. минимальное число не должно состоять только из 0000,что-то другое.
Чтоб был ясен ход мыслей, для начала сделаем это для 10тичной сс
Минимальное 4-значное число (берем что все цифры значимые и нет ведущих нулей) будет 1000 (это первое 4значное число после всех 3значных, т.е. 999+1=1000).
Максимальное 4значное число можно найти отнимая от минимального 5значного единицу 10000-1 = 9999
цифра 1 - это минимальное после 0 и она есть во всех системах счисления.
Потому минимальное 4 значное для всех сс будет 1000
Деревья в лесу или в парке, или одиноко стоящее дерево посреди поля - довольно распространённый объект рисования. Без дерева нельзя изобразить пейзаж или красивый фон, состоящий из леса. С первого взгляда дерево рисуется очень просто – есть ствол, ветви, листья, но на практике художник сталкивается с неожиданными трудностями и изобразить дерево становиться настоящей проблемой. На этом уроке мы попробуем научиться некоторым рисования деревьев.Будет весьма полезным для любого художника научиться рисовать различные деревья, различной сложности, различных видов и в разные времена года и погоды.Обучение на практике.Лучший изучить рисунок дерева – это рисовать их с натуры. Деревья с миллионами ветвей и миллионами подвижных листьев и их оттенков зелёного кидают настоящий вызов художнику.
1) uses crt; var a=array[1..8] of integer; b=array[1..8] of integer; i,min,j:integer; begin randomize; min:=16; for i:=0 to 8 do begin a[i]=random(30)-15; if (a[i]<min) min:=a[i]; end; j:=0; for i:=0 to 8 do if (a[i] = min) begin b[j] = i; j = j+1; end; for i:=0 to j do writeln(b[i]); end. 2) uses crt; var a=array[1..51] of integer; i,sum,j,h:integer; begin h := 1; for i:=1 to 51 do begin a[i]=i+h h:=h+1; if (i = 5 or i = 6 or i =7 or i = 8) there begin sum := sum=a[i]; j := j+1; end; end; writeln(sum/j); end. 3) uses crt; var a=array[1..12] of integer; i,b:integer; begin randomize; readln(b) for i:=1 to 12 do begin a[i]=random(100) if (a[i] = b) there j := j+1; end; writeln(j); end.
Чтоб был ясен ход мыслей, для начала сделаем это для 10тичной сс
Минимальное 4-значное число (берем что все цифры значимые и нет ведущих нулей) будет 1000 (это первое 4значное число после всех 3значных, т.е. 999+1=1000).
Максимальное 4значное число можно найти отнимая от минимального 5значного единицу 10000-1 = 9999
цифра 1 - это минимальное после 0 и она есть во всех системах счисления.
Потому минимальное 4 значное для всех сс будет 1000
Максимальное будем вычислять так 10000-1
2 сс: 10000-1 = 1111
4 сс: 10000-1 = 3333
6 сс: 10000-1 = 5555
8 сс: 10000-1 = 7777
Надеюсь понятно)