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

Question

№1 Определите количество пассажиров, которые могут поместиться на борт самолёта грузоподъемностью 8т(вес каждого пассажира вводится с клавиатуры).

№2 Начальный вклад в сберкассу составил А руб. Через сколько лет удастся накопить В руб. без учета дополнительных вкладов, если каждый год вклад увеличивается на 3%.

№3 Определите число суток с 1900 по 1999 года, если известно, что високосные годы - это те, у которых номер делится на 400 или те, у которых номер делится на 4, но не делится на 100.

Answer 1

var s,a,i:real;

Begin

  repeat

    writeln("Вес следущего пасажира kg");

    read(a);

    s:=s+a;

    if s<8000 then</p>

      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.