Var a:string; i,d:integer;
Begin
Readln (a);
d:=length (a);
For i:=1 to d do
If a[i]='A' then a[i]:='B';
Writeln (a);
end.
V=10c*96000Гц*8 бит = 7680000 бит = 960000 байт = 937,5 Кб
Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
Помой полы
1) убери все вещи с пола,
2) отряхни коврики
3) подмети пол
4) вымой пол
5) мой от угла к выходу
6) помой тряпку под струей воды
7) положи все на место