1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.
2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.
3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.
Там где N - это количество всех возможных событий (допустим, если речь идет про доставание шариков из 5 белых и 6 черных (мы понимаем, что шариков всего 11), то и N = 11, нельзя достать большее количество шариков из тех, что имеются в наличии.
Итак, сразу, что мы знаем из твоей задачи: что N = 64, ну нет больше деталей)
Дальше. Нам еще кое-что известно. Это то, что информация о бракованном шарике несет 4 бита информации. Это то самое i, которое обычно ищется в демонстрационных вариантах ЕГЭ! i - количество информации. Таким образом, мы понимаем, что 2^4 = 16, а это наша правая часть уравнения.
Что мы имеем после обработки условия и по нашей замечательной формуле?