Одномерный массив. pascal. дан целочисленный одномерный массив, сформированный случайными числами от 0 до 50. подсчитайте, сколько раз встречается в этой таблице число, заданное пользователем.
Program gt; vat a:array[1..60]of integer; n,i,k,b:integer; begin randomize; writeln('Задайте размер массива'); read(n); k:=0; writeln('Задайте число'); read(b); for i:=1 to n do begin a[i]=random(50); if(a[i] = b)then k:=k+1; end; writeln(k); end.
necit12
12.01.2022
Будем рассматривать восьмеричное число как набор двоичных триад 8) Наименьшее четырехзначное восьмеричное число - это 1000₈. 1000₈ = 1 000 000 000₂, но у нас нулей может быть только три, поэтому оставляем самые левые нули, чтобы число оставалось минимально возможным: 1 000 111 111₂ = 1077₈ 9) Наибольшее четырехзначное восьмеричное число - это 7777₈ = 111 111 111 111₂, но у нас только четыре единицы и мы оставим их слева, чтобы число оставалось максимальным: 111 100 000 000₂ = 7400₈ 10)Наибольшее четырехзначное восьмеричное число - это 7777₈ = 111 111 111 111₂, но у нас только четыре нуля и мы запишем их справа, чтобы число оставалось максимальным: 111 111 110 000₂ = 7760₈
алексеевич810
12.01.2022
Одна цифра восьмеричного числа = три числа в двоичной системе. т.к 8 = 2^3. число должно быть четырехзначным, следовательно в двоичной системе это число должно содержать 12 цифр (или 4 триады, т.е 4 группы цифр по три знака в каждой) максимальное четырехзначное число в восьмеричной системе, это - 7777, в двоичной записи оно будет выглядеть вот так : 111 111 111 111. наибольшее четырехзначное восьмеричное число, двоичная запись которого содержит 4 нуля, в двоичной системе будет выглядеть так - 111 111 110 000, т.е мы заменили единицы 4 нулями и при этом, поставили их в младшие разряды, т.к по условию нам нужно наибольшее число. если перевести это число в восьмеричную систему, получим 7760 ответ : 7760.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Одномерный массив. pascal. дан целочисленный одномерный массив, сформированный случайными числами от 0 до 50. подсчитайте, сколько раз встречается в этой таблице число, заданное пользователем.
vat a:array[1..60]of integer;
n,i,k,b:integer;
begin
randomize;
writeln('Задайте размер массива');
read(n);
k:=0;
writeln('Задайте число');
read(b);
for i:=1 to n do
begin
a[i]=random(50);
if(a[i] = b)then k:=k+1;
end;
writeln(k);
end.