Var i,n:integer;
begin
read(n);
for i:=1 to n do
write(i:5);
<span>end.
если в паскале то вот.</span>
var a,s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a:=random(100);
s:=s+a;
end;
write('s=',s);
end.
В 2-ой - 11101010
в 8 - ой - 352
в 16 - ой - ЕА