CLS
a$ = "abc"
INPUT "n = ", n
INPUT S$
IF LEN(S$) < n THEN
n = LEN(S$)
END IF
k = 0
FOR i = 1 TO n - 2
IF MID$(S$, i, 3) = a$ THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END
Var s:string; c:char; i:integer;
begin
write('s = '); readln(s);
i:=1;
while (i+2<=length(s)) do
if(s[i]=s[i+1])and(s[i+1]=s[i+2])
then begin
c:=s[i];
while (i<=length(s))and(c=s[i]) do delete(s,i,1);
i:=1;
end
else i:=i+1;
writeln(s);
<span>end.</span>
I:=k*i
1)i=I/k=2²¹/2²⁰=2
Ответ:4
2)
k=21-кол-во символов в тексте (если не считать пробелы).
Эта задача имеет несколько разных решений, в зависимости от мощности алфавита.
Если считать
1)N=64 (33 буквы в алфавите)
i:=6;
I=6*21=126 бит
или
2)N=256 (все сущ. символы)
i=8
I=8*21=168бит
или
3)N=16 (весь алфавит сост только из имеющихся букв в предложении)
i=4;
I=4*21=84бит
Вот. Умножение без помощи операции умножения. Делай лучшим)
program pr;
var i,a,b:integer;p:real;
begin
write('Первый множитель: ');
readln(a);
write('Второй множитель: ');
readln(b);
if b<0 then begin
b:=-b;
for i:=1 to b do begin
p:=p+a;
end;
writeln(-p:0:2);
end
else begin
for i:=1 to b do p:=p+a;
writeln(p:0:2)
end;
end.
