//PascalABC.NET 3.2 сборка 1318
Const
gal=4,54609;
Var
x:real;
begin
readln(x);
writeln(x*gal);
end.
//2
Var
b1,q:real;
n:integer;
begin
readln(b1,q,n);
if (b1=0) or (q=0) then
begin
writeln('b1=0 or q=0');
exit;
end
else
if q=1 then
begin
writeln('Sum=',b1*n);
writeln('Bn=',b1);
end
else
begin
Writeln('Sum=',b1*(1-power(q,n))/(1-q));
Writeln('Bn=',b1*power(q,n-1));
end;
end.
Var
a, b: integer;
procedure Max(a, b: integer);
begin
if(a > b) then write(a)
else write(b);
end;
begin
read(a, b);
Max(a, b);
end.
<span>Компьютер
Шестнадцатеричный код:<span>0E2C2A0E2E2E0E2E2C0E2E2F0E2F2C0E2F2E0E2F1B0E2E1E0E2F1914</span></span>
История 2 мировая война, биология-вымирание динозавров, география-земля имеет форму шара
при n = 2:
по началу i равен одному, а S нулю. Далее i <= n, то есть 1 <= 2, ответ да. К S прибавляется i, и S будет равен одному. Еще к i прибавляется 2, и i становится тройкой. Возвращаемся к началу алгоритма, но с новыми значениями, i у нас равен трем, а S равен одному. Далее проверяется условие i <= n, то есть 3<=2. Ответ нет, и выводится ответ S. А S равен однерке.
Ответ: 1