Вопрос от посетителя
№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.