№1 определите количество пассажиров, которые могут поместиться на борт самолёта грузоподъемностью 8т(вес каждого пассажира вводится с клавиатуры). №2 начальный вклад в сберкассу составил а руб. через сколько лет
удастся накопить в руб. без учета дополнительных вкладов, если каждый год вклад увеличивается на 3%. №3 определите число суток с 1900 по 1999 года, если известно, что високосные годы - это те, у которых номер делится на 400
или те, у которых номер делится на 4, но не делится на 100.
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.