program n2;
var stroka: string;
c:char;
i: integer;
begin
write('Введите строку: ');
readln(stroka);
i:=Length(stroka);
if (i mod 2 = 0) then
WriteLn(stroka[i div 2]);
if (i mod 2 <> 0) then
WriteLn(stroka[(i div 2) + 1]);
end.
program n3;
var stroka: string;
i,b: integer;
begin
write('Введите строку: ');
readln(stroka);
b:=Length(stroka);
for i:=b downto 1 do
if stroka[i]=(' ') then insert(',',stroka,i);
writeln(stroka);
end.
program n8;
var stroka1, stroka2: string;
i: integer;
begin
write('Введите строку : ');
readln(stroka1);
stroka2:=('ой');
i:=0;
while pos(stroka2,stroka1) > 0 do begin
i:=i+1;
delete(stroka1,pos(stroka2,stroka1),length(stroka2));
end;
WriteLn(i);
end.
program n11;
var stroka1, stroka2: string;
i: integer;
begin
write('Введите строку : ');
readln(stroka1);
stroka2:=(' ');
i:=0;
while pos(stroka2,stroka1) > 0 do begin
i:=i+1;
delete(stroka1,pos(stroka2,stroka1),length(stroka2));
end;
i:=i+1;
if i>3 then writeln('True')
else writeln('False');
end.
program n12;
var stroka1,stroka2: string;
i: integer;
begin
write('Введите строку : ');
readln(stroka1);
stroka2:=(' ');
i:=0;
while pos(stroka2,stroka1) > 0 do begin
i:=i+1;
delete(stroka1,pos(stroka2,stroka1),length(stroka2));
end;
if i>=3 then writeln('True')
else writeln('False');
end.
program n13;
var stroka1, stroka2: string;
i: integer;
begin
write('Введите строку : ');
readln(stroka1);
stroka2:=(' ');
i:=0;
while pos(stroka2,stroka1) > 0 do begin
i:=i+1;
delete(stroka1,pos(stroka2,stroka1),length(stroka2));
end;
i:=i+1;
if ((i mod 2) <> 0) then writeln('False')
else WriteLn('True');
end.
program n14;
var stroka1, stroka2: string;
i: integer;
begin
write('Введите строку : ');
readln(stroka1);
stroka2:=('д');
i:=0;
while pos(stroka2,stroka1) > 0 do begin
i:=i+1;
delete(stroka1,pos(stroka2,stroka1),length(stroka2));
end;
if (i mod 2 =0) then writeln('True')
else writeln('False');
end.
7-мую не знаю, не корректный вопрос что сравнивать?