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

Question

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

sinjay · Answer

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.  ...

Популярные вопросы