Question

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

Answer 1

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

Answer 2

какие?

Answer 3

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

Answer 4

а программа будет работать так как надо?

Answer 5

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

Answer 6

не понял