Var k,n:integer;
begin
n:=1;
k:=2;
while k<=45 do
begin
n:=n+1;
k:=k*2;
if n mod 7 = 0 then k:=k-23;
end;
writeln('n = ',n,' k = ',k);
end.
Результат:
n = 6 k = 64
азот – 78 % объёма (75,5 % по массе);
кислород – 21 % (23,2 %);
аргон и другие инертные газы (неон, гелий, криптон, ксенон) – 0,9 % (1,3 %);
углекислый газ – 0,03 % (0,05 %);
метан, водород – менее 0,001 %.
Так как D3 изменилось на D7,то =B1*C2 изменится на =B5*C6
Рисунки, схемы, чертежи, фотографии