Var x: integer;
begin
readln(x);
writeln(x*x*x*x*x*x*x*x*x*x*x*x*x*x*x);
end.
Выводятся такие значиния
k= 1 p=120
j=10 s= 20 j=11 s= 42 j=12 s= 66 j=13 s= 92 j=14 s= 120 j=15 s= 150
Где? на каком сайте? какая почта?
D-(-8;-4) ||| тоже самое было, надеюсь правильно :) удачи в изучение информатике....