👤

La un meci de fotbal cu o jumatate de ora de la inceputul meciului au venit la stadion 8000 de suporteri.Dupa fiecare 5 minute mai veneau 500 de suporteri.Scrie programul care va calcula cîti suporteri au fost prezenti la începutul meciului.(prin ciclul While sau Repeat

Răspuns :

Program Fotbal;
var  t, s: integer;
 begin

t:=-30;
s:=8000;
 
Repeat
s:=s+500;
 t:=t+5;
 until t=0;
 
writeln ('La inceputul meciului, pe stadion erau prezenti ',s, ' suporteri.');
 readln;
 end.