Question

!!!!Un sportiv se pregatea de maraton.În prima zi el a alergat o distanta de 5 km,iar în fiecare urmatoarea zi alerga mai mult decit în ziua precedenta cu 2km.Scrie prohramul care va calcula si afisa la ecran distanta pe care a alergat sportivul timp de 7 zile.(prin while/repeat)

Answer 1

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

  begin 
i:=3;

 Repeat
i:=i+2;
s:=s+i;
j:=j+1;
until j=7;

 write ('In 7 zile sportivul a alergat ' , s, ' kilometri.');
 readln;
 end.