Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.
Если на Pascal, то:
program qq;
var a,b:integer;
Begin
Write('Введите значение 1 переменной: ');
Read(a);
Write('Введите значение 2 переменной: ');
Read(b);
Write('Произведение двух переменных ',a,' и ',b,' равно: ',a*b);
End.
Я понимаю это не степени, а основания
а) 566^7 600
79^16 7А
10111^2 11000
344^5 400
89^16 8А
110011^2 110100
б) 1000^4 333
90^16 8F
1001011^2 1001010
344^5 343
89^16 88
110011^2 110010