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 kirimi email jika bersifat private

waslam

terimakasih atas partisipasinya