Var T:string;
k:integer;
s,c:char;
begin
Writeln('Введите строку');
Readln(T);
Writeln('Введите буквы s и c');
Readln(c);
While not(Pos(s,T)=0) do
begin
k:=Pos(s,T);
T[k]:=c;
end;
Writeln('Изменённая строка - ',T);
end.
Мощностью алфавита
тттттттттттттттттттттттттт
var
a, p, s : integer;
begin
write('введите сторону квадрата a=');
readln(a);
p := a*4;
s := a*a;
writeln('периметр P=', p);
writeln('площадь S=', s);
end.
34 символа, на 1 символ 1 байт, т. е. 34*1=34 байта = 272 бита
570 бит/8=71,25 байт/1024=0,069580078125 кб