Здравствуйте. Решил вспомнить всё, что знал о паскале (после олимпиады). И для пробы своих знаний сваял СИЕ:
Код:
var a, i, b, f:Integer;
begin
Writeln('Введите число');
Readln(b);
Writeln('Введите степень');
Readln(a);
f:=b;
if (b=0) and (a=1) then
b:=1
else
if a=0 then
b:=1
else
if a=2 then
b:= sqr(b)
else
if a=3 then
b:= sqr(b)*b;
if a>3 then
begin
for i:=1 to a-1 do
f:=f*b;
end;
Writeln(f);
end.
Идея проста: Число в степень..... Но степень выбирается рандомно.... Хотя может и нет: 5 прекрастно дощитывается до 13 степени, и дальше обвал... А 4 "едет" до 15 степени
Так вот, что здесь неверно? Ошибок нет, но и подсчёт неверен...