1001=1*2^3+1*2^0=9 степени справа налево от нуля,нулям степени не писала т.к в итоге 0 получится
program
var a,b,c,d,n:integer;
begin
write('Введите кол-во учеников в классах:');
read(a,b,c);
writeln('Введите кол-во учебников в библиотеке:');
read(n);
d:=a+b+c;
if (n>=d) then writeln('Учебников хватит.')
else writeln('Учебников не хватит.')
end.
Var a, b, c, d, e : longint;
begin
assign(input, 'D:\Vanya\School\Pascal\Input\input.txt'); reset(input); assign(output, 'D:\Vanya\School\Pascal\Output\output.txt'); rewrite(output); read(a,b,c,d,e); write(a * b *c*d*e);
end.<span>
</span>
Если я правильно поняла задание, то всего 2 ученика(!) получат оценку 3, учитывая все предметы. Это Аранян и Черепанова.