Question

помогите срочноо решить задачи!!!! задача 2,3,7,8,11,12,13,14,
тому кто их решит гарантируюб 65 баллов, уже просто исправить нельзя

Answer 1

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-мую не знаю, не корректный вопрос что сравнивать?