Поднять перо --> Опустить перо
Повторить 2 --> Повторить 4
Опустить перо --> Поднять перо
Это ответ не на тот вопрос, который задан, а на тот, что дан в комментарии. По правилам данного сервиса такой ответ вскоре будет удален.
F₁=1; G₁=1;
F₂=F₁-2G₁=1-2×1=1-2=-1; G₂=G₁+F₁=1+1=2;
F₃=F₂-2×G₂=-1-2×2=-1-4=-5; G₃=F₂+G₂=-1+2=1;
F₄=F₃-2×G₃=-5-2×1=-5-2=-7; G₄=F₃+G₃=-5+1=-4;
F₅=F₄-2×G₄=-7-2×(-4)=-7+8=1; G₅=F₄+G₄=-7-4=-11
G₅/F₅=-11/1=-11
Ответ: -11
1)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
if pos('а', s) <> 0 then writeln('В строке есть буква "а"')
else writeln('В строке нет буквы "а"');
end.
2)
var
s: string;
i, a: byte;
begin
a := 0;
writeln('Введите строку: ');
readln(s);
for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.
3)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
while pos('и', s) <> 0 do delete(s, pos('и', s), 1);
writeln('Строка после удаления букв(ы) "и": ', s);
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Dec2Bin(t: integer): string;
begin
var r: string := '';
while t >= 2 do
(r, t) := (t mod 2 + r, t shr 1);
r := t + r;
Result := '0' * (8 - r.Length) + r
end;
function Bin2Dec(s: string): integer;
begin
Result := 0;
var p := 1;
for var i := s.Length downto 1 do
begin
Result += (s[i].ToDigit) * p;
p *= 2
end
end;
function GenSeqCycle(n: integer): sequence of integer;
begin
var s := Dec2Bin(n);
loop 8 do
begin
yield Bin2Dec(s);
s := s[2:] + s[1]
end
end;
begin
GenSeqCycle(ReadInteger).Max.Println
end.