Вычислите сумму ряда 10, 100, 1000 ...т на языке паскаль, пожалуйста
Вычислите сумму ряда 10, 100, 1000 ...т на языке паскаль, пожалуйста
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы