Cod sursa(job #682592)
| Utilizator |  chereches florian cherehcesbm |
Data | 19 februarie 2012 11:10:51 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.21 kb |
program lgput;
var n,p,i,s:integer;
f:text;
Begin
assign(f,'lgput.in');reset(f);
readln(f,n,p);close(f);s:=0;
for i:=1 to p do
s:=s+n*n;
assign(f,'lgput.out');rewrite(f);
writeln(f,s);close(f);
End.