Вычислите сумму ряда 10, 100, 1000 ...т ** языке паскаль, пожалуйста

Question

Вычислите сумму ряда 10, 100, 1000 ...т на языке паскаль, пожалуйста

Answer 1

Var i,k,T,m:integer;
begin;
k:=0;
m:=1;
readln(T);
if T<0 then exit;<br>for i:=1 to T do
begin;
m:=m*10;
k:=k+m;
end;
writeln(k);
end.

Comments

Пока не за чего благодарить, не учёл исключения.

---

T должно быть >=0 . Уже написал в решении.

---

Нет, я сжёг свой стационарный ЭВМ, пытаясь это скомпилировать.