1) begin var s1:=ReadlnString('Текст:'); Writeln('k = ',s1.Where(c->Pos(c,'01')>0).Count); var s2:=s1.Select(c->c='0'?'A':c).Select(c->c='1'?'M':c); s2.Println; end.
Пример: Текст: Текст с 1 и 0: 110+101=1011 k = 12 Текст с M и A: MMA+MAM=MAMM
2) var s1,s2:string; i,k:integer; begin writeln('Введите текст:'); readln(s1); k:=0; s2:=''; for i:=1 to length(s1) do if s1[i]='0' then begin s2:=s2+'A'; k:=k+1; end else if s1[i]='1' then begin s2:=s2+'M'; k:=k+1; end else s2:=s2+s1[i]; writeln(s2); writeln('k = ',k); end.
Пример: Введите текст: Текст с 1 и 0: 110+101=1011 Текст с M и A: MMA+MAM=MAMM k = 12
В программе генерируются только убывающие последовательности (a[i]:=-i+random()+20;). Можно при желании массив вводить с клавиатуры. const n=15; var a:array[1..n] of real; i:integer; b:boolean; begin Randomize; for i:=1 to n do begin a[i]:=-i+random()+20; write(a[i]:5:2,' '); end; writeln; b:=true; for i:=1 to n-1 do if a[i+1]>=a[i] then b:=false; if b then begin writeln('Последовательность убывающая'); writeln('p = ',a[n]*a[n div 2+1]:5:2); end else writeln('Последовательность не убывающая') end.
x = 1
for i in range(1, 11, 1):
print(x, "-", x*2)
x += 1
i += 1
Объяснение:
Таблица будет до 10 включительно. Решение на python.