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

      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.

 

Answer 2

№1: Определение количества пассажиров на борту самолета

Для определения количества пассажиров, которые могут поместиться на борт самолета грузоподъемностью 8 тонн, необходимо знать вес каждого пассажира. Предположим, что вес каждого пассажира вводится с клавиатуры.

№2: Накопление суммы вклада в сберкассу

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

№3: Определение числа суток с 1900 по 1999 год

Для определения числа суток с 1900 по 1999 год, учитывая, что високосные годы - это те, у которых номер делится на 400 или те, у которых номер делится на 4, но не делится на 100, необходимо выполнить соответствующие вычисления.

Примечание: Для более точного ответа на вопросы №1 и №2, необходимо знать вес каждого пассажира и начальный вклад в сберкассу. Пожалуйста, предоставьте эти данные, чтобы я могу дать более точный ответ.