PENGULANGAN

BAGAIMANA sih caranya membuat pengulangan yang OUTPUTNYA seperti ini
masukan nilai : 5
1 = 1
1+ 2 = 3
1+2+3 = 6
1+2+3+4 = 10
1+2+3+4+5 = 15
bagaimana cara menghasilkan karakte ‘+’
jawab :
uses wincrt;
var i,n,j,x:integer;
a,b,c:real;
begin
write(‘masukan nilai : ‘);readln(n);
for i:=1 to n do
begin
for j:=1 to i do
if i=j then
write(j)
else
write(j,’+’);
begin
x:=x+i;
writeln(‘=’,x);
end;
end;
readln;
donewincrt;
end.
tapi bagaimana caranya memasukan nilai dari n sampai k?????????
silahkan kirimkan komentar anda atau [...]