Question

intr-o sera in fiecare zi infloresc cu 15 flori mai multe decit in ziua precedenta. In prima zi au inflorit 10 flori. sa se scrie un program care calculeaza cite flori au inflorit in 7 zile.

Answer 1

Program flori;
 var i, j, s: integer;

  begin
i:=-5;
 for j:=1 to 7 do begin
i:=i+15; s:=s+i; end;

 write ('In 7 zile au inflorit ' , s, ' flori.');
 readln;
 end.