FIRIT
4 год назад
опишите этапы решения на компьютере задачи нахождения значения a^b для целых чисел 0
ОТВЕТЫ
Stoil
Oct 24, 2020
Привет всему 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.
Вот и все!
586
Смежные вопросы: