Если символ кодируется одним байтом, то количество символов = 128/1 = 128.
Если символ кодируется двумя байтами, то количество символов = 128/2 = 64.
1)
var s,a,b: string; i,p: byte;
begin
s:='Снег лежит на земле';
writeln('Было:');
writeln(s);
a:='на земле';
b:='повсюду';
p:=Pos(a,s);
delete(s,p,length(a));
insert(b,s,p);
writeln('Стало:');
writeln(s);
end.
-----------------------------------
Было:
Снег лежит на земле.
Стало:
Снег лежит повсюду.
-----------------------------------
2)
var s: string;
begin
writeln('Введите слово:');
readln (s);
if length(s)>5 then writeln ('Верно') else writeln ('Не верно');
end.
------------------------------------
Введите слово:
ученик
Верно
------------------------------------
3)
var s: string; i,k: byte;
begin
writeln('Введите слово:');
readln (s);
k:=length(s);
for i:=1 to k do
s:=s+'+';
writeln (s)
end.
-------------------------------------
Введите слово:
море
море++++
-------------------------------------
1. Комфорт ФОРТ
2. Бантик ТИК
3.Форточка ФОРТ
Если слова,то вот.
Program n1;
const n=20;
var a: array[1..n] of integer;
i,m: integer;
begin
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите позицию: ');
readln(m);
if (m>=1) and (m<=n) then
begin
a[m]:=10;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end;
end.
Var x:integer;
y:real;
begin
for x:=-5 to 5 do
if (x>1) and (x<3) then begin y:=cos(x); writeln(x,' ',y:2:2); end
else if x<1 then begin y:=sqr(x); writeln(x,' ',y); end
else begin y:=ln(x); writeln(x,' ',y:2:2); end;
end.