№1 Определите количество пассажиров, которые могут поместиться на борт самолета…

var s,a,i: real; Begin repeat writeln ("Вес следущего пасажира kg"); read (a); s: =s+a; if s<8000 then i: =i+1; until s>=8000 writeln (i); End. var b,a,i: real; Begin read (a,b); repeat a: =a+a*0,03; i: =i+1; until a>=b writeln (i); End. var i,s: integer; Begin for i: =1900 to 1999 do begin s: =s+365; if (i mod 400=0) or (i mod 4=0) and (i mod 100<>0) then s: =s+1; end; writeln (s); End.