Question

am mare nevoie de ajutor, rapid, la punctul d ! DAU COROANA si 25 pts!!​

Answer 1

Răspuns:

program p1;

var i,j,s,x : integer;

begin

 

 s:=0;

 for i:=1 to 5 do

 begin

 write('x=');

 readln(x);

 s:=s+x;

 for j:=1 to i do begin

 writeln('s=',s);

 end;

 end;

end.