)напиши куда слово встовлять(вначало, вконец, посередине...); program z2; var s,s1:string; a:integer; begin write('Введите слово: ');read(s1); write('Введите строку: ');read(s); s:=s+' '; a:=length(s); writeln(a); insert(s1,s,a+1); writeln('Преобразованная строка: ',s); end. 2) program z1; var s:string; i,kol:integer; begin writeln('Введите строку'); read(s); kol:=0; for i:=1 to length(s) do if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and (s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and (s<>'8')and(s<>'9')and(s<>'0') then inc(kol); writeln(Kol); end.
92
Объяснение:
+1; *2; ^2; 2 --> 27
начало 2
3 2+1 1
4 3+1; 2^2; 2*2 3
5 4+1 3
6 5+1; 3*2 3+1=4
7 6+1 4
8 7+1; 4*2 4+3=7
9 8+1; 3^2 7+1=8
10 9+1; 5*2 8+3=11
11 10+1 11
12 11+1; 6*2 11+4=15
13 12+1 15
14 13+1; 7*2 15+4=19
15 14+1 19
16 15+1; 8*2; 4^2 19+7+3=29
17 16+1 29
18 17+1; 9*2 29+8=37
19 18+1 37
20 19+1; 10*2 37+11=48
21 20+1 48
22 21+1; 11*2 48+11=59
23 22+1 59
24 23+1; 12*2 59+15=74
25 24+1; 5^2 74+3=77
26 25+1; 13*2 77+15=92
27 26+1 92
program z2;
var s,s1:string;
a:integer;
begin
write('Введите слово: ');read(s1);
write('Введите строку: ');read(s);
s:=s+' ';
a:=length(s);
writeln(a);
insert(s1,s,a+1);
writeln('Преобразованная строка: ',s);
end.
2)
program z1;
var s:string;
i,kol:integer;
begin
writeln('Введите строку');
read(s);
kol:=0;
for i:=1 to length(s) do
if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and
(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and
(s<>'8')and(s<>'9')and(s<>'0') then inc(kol);
writeln(Kol);
end.