Var s: string;

k, i: integer;

begin

readln(s);

k := 0;

for i := 1 to length(s) do

if s[i] = 'a' then

begin

s[i] := 'b';

k := k + 1;

end

else if s[i] = 'A' then

begin

s[i] := 'B';

k := k + 1;

end;

writeln(s);

writeln(k);

end.
даю все

Question

Информатика: Var s: string; k, i: integer; begin readln(s); k := 0; for i := 1 to length(s) do if s[i] = a then begin s[i] := b ; k := k + 1; end else if s[i] = A then begin s[i] := B ; k := k + 1; end; writeln(s); writeln(k); end. даю все

maхimus · Accepted Answer

1. В прямом коде число 0 имеет два представления «+0» и «–0». ... В обратном коде число 0 также имеет два представления «+0» и «–0». Дополнительный код для положительных чисел имеет тот же вид, что и прямой код, а для отрицательных чисел образуется путем прибавления 1 к обратному коду.

2. При использовании дополнительного кода возникающая единица переноса из знакового разряда отбрасывается. При использовании обратного кода возникающая единица переноса из знакового разряда циклически прибавляется к младшему разряду суммы кодов. Это требует усложнения аппаратных средств.

Объяснение:

Var s: string; k, i: integer; begin readln(s); k := 0; for i := 1 to length(s) do if s[i] = 'a' then begin s[i] := 'b'; k := k + 1; end else if s[i] = 'A' then begin s[i] := 'B'; k := k + 1; end; writeln(s); writeln(k); end. даю все

MOGZ ответил

Var s: string;

k, i: integer;

begin

readln(s);

k := 0;

for i := 1 to length(s) do

if s[i] = 'a' then

begin

s[i] := 'b';

k := k + 1;

end

else if s[i] = 'A' then

begin

s[i] := 'B';

k := k + 1;

end;

writeln(s);

writeln(k);

end.
даю все