срочно! задача на паскале. 1(в степени 1)+2(в степени 2)+...+к(в степени к)=S как написать на паскале и на бейсике

Question

Я Ученик (144), закрыт 12 лет назад

Answer 1

Вот пример на бейсике:
Cls
Input n
s=0
For i=1 to n
s=s+i^i
next
print s
End

Answer 2

u:=1;
x:=1;
for i:=1 to k do begin while x<>i do begin u:=u*i;x:=x+1;end;s:=s+x;x:=1;u:=1;end;
на паскале