ответ: Продолжительность восхода на экваторе Марса 83,(3) секунды.
Объяснение: Так как Марс находится в 1,5 раза дальше от Солнца, чем Земля, то угловой размер Солнца, при наблюдении на Марсе, будет в полтора раза меньше углового размера Солнца при наблюдении с Земли. Если бы длительность суток на Марсе и Земле была бы одинаковой, то восход Солнца на Марсе длился бы в 1,5 раза меньше, чем на Земле, так как угловой размер Солнца на Марсе в 1,5 раза меньше. Но сутки на Марсе чуть больше земных. Больше в 25/24 = 1,041(6) раза. Отсюда следует, что длительность восхода на Марсе не в 1.5 раза меньше, чем на Земле, т.е. не 2минуты/1,5 = 120с/1,5 = 80 с, а чуть больше чем 80 с. Больше 80 секунд в 1,041(6) раза. Таким образом длительность восхода Солнца на Марсе = 120 * 1,041(6)/1,5 = 83,(3) секунды.
Объяснение:
Товстий – людина, що має високе положення в суспільстві, хороший дохід, ситий і процвітаючий, звиклий до поклоніння і підлесливості. Достаток дозволяє втілити йому свої бажання. Товстий асоціюється з людиною доброзичливою, привітною, щирою. “Товстий” першим помітив свого друга, радісно гукнув його, назвав “голубчиком”.
Тонкий – людина, що займає незначне становище в суспільстві, знаючий нужду, але вміє пристосовуватися до людей, чинам, обставинам. Чоловік “тонкий” асоціюється з людиною заздрісною, дріб’язковою, жовчною, здатною на лестощі.
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу, которая по заданной последовательности цифр (не более 100) находит количество исходных сообщений,
a, b, c : array [1..100] of byte;
i, na, nb, nc : integer;
s, s1, s2 : string;
f1, f2 : text;
procedure summa;
var i, p : integer;
begin
p:=0;
for i:=1 to nc do
begin p:=p+c[i]+a[i]; c[i]:=p mod 10; p:=p div 10 end;
if p>0 then begin nc:=nc+1; c[nc]:=p end
end;
begin
for i:=1 to 100 do begin a[i]:=0; b[i]:=0; c[i]:=0 end;
assign(f1,'input.txt'); reset(f1);
assign(f2,'output.txt'); rewrite(f2);
readln(f1,s);
na:=1; a[1]:=1; nb:=1; b[1]:=1; s1:=s[1];
for i:=2 to length(s) do
begin
s2:=s[i]; s1:=s1+s2; nc:=nb; c:=b;
if ('10'<=s1) and (s1<='33') then summa;
na:=nb; a:=b; nb:=nc; b:=c; s1:=s2
end;
for i:=nc downto 1 do write(f2,c[i]); close(f2)
end.