1)
_256 _100100 _ ABC
<u> 77 </u> <u> 1011 </u> <u> FF</u>
157 11001 3D
2) A B C D E F 10 11 12 13 14
(10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20)
3)
1011 254
<u> 111</u> <u> 613</u>
10010 1067<u>
</u>
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.
-------------------------------------
Введите слово:
море
море++++
-------------------------------------
Не для всех. Например, get-command в Power Shell.