1) Имеем → KBRA69KBK
Меняем "RA6" на "FL" → KBFL9KBK
Теперь "KB" на "12B" → 12BFL912BK
Далее убираем 3 последних символа → 12BFL91
Ответ: 1
2) Имеем → KBMAM9KBK
Меняем "MAM" на "RP" → KBRP9KBK
Теперь "KBK" на "1212" → KBRP91212
Далее убираем 3 последних символа → KBRP91
Ответ: 1
3) Имеем → QWER3QWER1
Меняем "QWER" на "QQ" → QQ3QQ1
Теперь удаляем "3Q" → QQQ1
Ответ: 4
4) Имеем: А, Б, В, И.
Условия:
• Начинается с согласной → Б... или В...
• После гласной не стоит гласная → АБ или АВ или ИБ или ИВ
• После согласной не стоит согласная → БА или БИ или ВА или ВИ
• Последняя не А и не В → ...Б или ...И
Варианты:
1] БВИ → После согласной стоит согласная, не подходит
2] АВИ → Начинается с гласной, не подходит
3] БАВ → Заканчивается на В, не подходит
4] БИБ → Удовлетворяет всем условиям
Ответ: 4
<span> Б)12:25 - 1:45
в 12:30, в 1:00 и в 1:30</span>
1 var a, b, c, n, i: integer;
2
3 begin
4 writeln('Vvedite N');
5 readln(n);
6 a :=1; b :=1;
7 for i := 3 to n do begin
8 c := a + b;
9 a := b;
10 b :=c;
11 end;
12 writeln(c);
13 end.
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
1A3 (16) =1*16²+10*16¹+3*16°=256+160+3=419 (10)
ответ: 419