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

islamkazirbaev islamkazirbaev    1   09.07.2019 19:20    0

Ответы
tomahvisucik16 tomahvisucik16  02.10.2020 23:39
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика