[Pascal][简单题]无比顺利

问题 P: 无比顺利

时间限制: 1 Sec  内存限制: 128 MB

题目描述

中国人非常喜欢6这个数字，因为大家总爱说66大顺啊。数学狂人叶某人喜欢把什么都数字化，于是她把顺利这个词也定义了数量级，6代表1级顺利，66代表2级顺利，666代表3级顺利，以此类推。你看，数学狂人的世界总是让人无法理解。今天，叶某人决定将数学进行到底，现在她设前n级顺利的和是sn。

sn=6+66+666+...+66..66(n个6)。

假设你已经知道了数字n，那么，你能帮叶某人求出sn么？

输入

输入一个数n，n不会超过10。

输出

输出Sn的值

样例输入

2

样例输出

72

提示

--

这道题我用的方法是：首先用一个循环，然后把所有的6加上，再把所有的60加上……以此类推

简单的模拟~写了4分钟，一次搞定（OJ）不编译

var ans,n,i,j,bb:longint;
begin
readln(n);
 for i:=1 to n do
 begin
 bb:=1;
 for j:=1 to i do
 bb:=bb*10;
  ans:=ans+(n-i+1)*6*(bb div 10);
 end;
writeln(ans);
end.