Program rost; var a:array[1..30] of integer; n:integer; begin writeln('Введите количество учеников'); read(n); for i:=1 to n do read(a[i]); write(a,'[i]'); end. Ну как то так.
var A: array of integer; N, i: integer; begin write('Введите количество учеников в классе: '); readln(N); SetLength( A, N ); for i := 0 to N - 1 do begin A[ i ] := random(200) mod 1000; writeln('Рост ', i + 1, ' ученика: ', A[ i ]); end; end.
б)X = 3*9(16)= 1**(8) тут или ошибка или нужно доказать что такого числа нет Минимальное 16ричное число при таких данных 309(16) = 777(10) Максимальное 8ричное число при таких данных 177(8) = 127(10) Так что такого числа нет
если переписать условие иначе б)X = 3*9(16)= 1***(8)
тогда
# код на руби for i in 0..2000 p [i, i.to_s(16), i.to_s(8)] if i%16==9 and (i/16/16)==3 and i/8/8/8==1 end
Удобнее всего решать с использованием промежуточной двоичной системы, поскольку 16=2⁴, в 8=2³. В силу этого каждая шестнадцатиричная цифра изображается четырьмя битами (тетрадой), а каждая восьмеричная - тремя (триадой). Заменим неизвестные биты символом Х. 1010₁₆ = ХХХ ХХ1 010₈ Запишем изображения битов друг под другом с учетом известной нам информации. Х Х Х Х 1 0 1 0 Х Х Х Х Х 1 0 1 0 Теперь известные биты в конце чисел можно отбросить Х Х Х Х Х Х Х Х Х Очевидно, во втором (восьмеричном числе первый бит нулевой, поскольку оба числа в двоичной записи одинаковы и остается только ₂. Эти четыре бита (обозначим их IJKL) могут дать 16 комбинаций. Но требование, чтобы восьмеричное число имело три цифры, старшая из которых не может быть нулем, запрещает комбинацию IJ=00, поэтому 4 комбинации из 16 надо вычеркнуть. Останется 12.
var a:array[1..30] of integer; n:integer;
begin
writeln('Введите количество учеников');
read(n);
for i:=1 to n do
read(a[i]);
write(a,'[i]');
end.
Ну как то так.