===== PascalABC.NET =====
begin
for var i := 1 to integer.MaxValue-2 do
if (i+1)*(i+2) - i * i = 50 then
begin
Print(i, i+1, i+2);
break
end
end.
Результат: 16 17 18
Function power (a:real; n:longint):real;
var
i:longint;
p:real;
begin
if n=0 then power:=0
else begin
p:=a;
for i:=2 to n do p:=p*a;
power:=p
end
end;
var
a:real;
n:integer;
begin
Write('Введите основание и показатель степени: ');
Read(a,n);
Writeln('Результат: ',power(a,n))
end.
<u>Пример</u>
Введите основание и показатель степени: 13.64 6
Результат: 6440005.25769131
Ответ:
вычисление A в степени n
Объяснение:
выполняется цикл n раз
в теле цикла число A умножается само на себя
1 - e
2 - b
3 - b
4 - d
5 - b