fork download 
  1. program digits;
  2.  
  3. var N,d,i,ans, precedente, sommacifre:Int64;
  4.  
  5. begin
  6. 	readln(d, N);
  7. 	precedente:=d;
  8. 	for i:=2 to N do
  9. 	          begin
  10. 	            sommacifre:=2*precedente+(i div 10 + i mod 10);
  11. 	            precedente:=sommacifre;
  12. 	         end; 
  13.     writeln(sommacifre);
  14. end.
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin 
3 2
stdout 
8
https://ideone.com/Oth87l
language:
Pascal (fpc 3.0.4)
created:
15 days 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!