Для первого примера я привел пример перевода из двоичной системы в десятичную. Второй пример можете сделать так же. Я не стал этого делать, ибо долго.
var
i: Integer;
name, surname: String;
begin
writeln('Введите имя');
readln(name);
writeln('Введите фамилию');
readln(surname);
for i := 1 to 10 do
writeln(name,' ', surname);
end.
program ArrayPrintBack;
var
a: array[1..8] of integer;
i: integer;
begin
Randomize;
for i := 1 to 8 do
begin
a[i] := 5 + Random(49);
Write(a[i]:3)
end;
Writeln;
for i := 8 downto 1 do
Write(a[i]:3)
end.
101000₂% = 40₁₀% девочек.
1111₂ = 15₁₀ мальчиков.
Пусть в классе всего n учеников, тогда девочек в нем 0.4n, а мальчиков - остальные 0.6n, что составляет 15 человек.
0.6n=15 ⇒ n=15/0.6 = 25
Ответ: 25 человек