В десетерчной системе исчесленя - 18
в восьмерчной - 22
Var sum:real; n:integer; x,factorial,multiplier:real;
begin
readln(x,n);
factorial:=1;
multiplier:=1;
for n:=1 to n do begin
factorial*=n;
multiplier*=x;
sum+=multiplier/factorial;
end;
writeln(sum);
end.
DIM b AS STRING * 1
DIM a AS STRING * 100
DIM i, k, n AS INTEGER
INPUT "INPUT STRING", a$
INPUT b$
k = LEN(a$)
FOR i = 1 TO k
IF MID$(a$, i, 1) = b$ THEN
n = n + 1
END IF
NEXT i
PRINT n
END<span>
</span>
===== PascalABC.NET =====
begin
ArrRandom(ReadInteger('n= '), 4, 112).Println.Min.Println
end.
1 нецелесообразно переводить текст
2 компьютерный перевод нуждаеться в ключе
не уверен но как-то так