var
A, r:real;
N, s:integer;
begin
s := 1;
write('a = '); readln(a);
write('n = '); readln(n);
r := a;
while r <= n do
begin
writeln(s);
inc(s);
r := r * a;
end;
if a > n then
writeln(a , ' в любой степени >= 1 будет больше числа ', n);
end.
100*512*8 бит = 409 600 бит = 51 200 байт = 50 кб
Var n,i: integer;
begin
readln(n);
for i:=1 to 9 do
writeln(n,'*',i,'=',n*i);
end.
subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg