fork download
copy 
  1. var
  2. 	a,b:array[1..1000] of integer;
  3. 	pom,i,j,t:INTEGER;
  4. BEGIN
  5. 	readln(t);
  6. 	for i:=1 to t do
  7. 		readln(a[i],b[i]);
  8. 	for i:=1 to t do
  9. 	begin
  10. 		pom:=a[i];
  11. 		for j:=1 to b[i]-1 do
  12. 			a[i]:=a[i]+(a[i]*pom);
  13. 		writeln(a[i]);
  14. 	end;
  15. END.
  16.  
Success #stdin #stdout 0.01s 256KB
comments (?)
stdin
copy 
3
2 4
1 5
3 2
stdout
copy 
54
16
12
https://ideone.com/iPaVF
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!