Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.
var a,b,sum,i : integer;
begin
readln(a,b);
if (a < 0) or (a > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''a'' не подходит: ');
readln(a);
end;
if (b < 0) or ( b > 10) then
while (a < 0) or (a > 10) do begin
writeln('Число ''b'' не подходит: ');
readln(b);
end;
sum := 1;
for i:= 1 to b do
sum:= sum * a;
writeln('Число ''а'' в степени ''b''',' = ', sum );
end.
Вот и все!
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
1. выполнить сложение чисел в двоичной с.с. (сделать проверку в десятичной с.с.): а) 10101+1111; б) 1100101+101011. 2. выполните умножение чисел в двоичной системе счисления (сделать проверку в десятичной с.с.): а) 1101*11; б) 10101*111.
а)100100
Б) 10110000
2
а) 10111
б) 10010011