Сделать по образцу в corel draw

1)

program pr1; uses crt; var stroka: string; a: integer; beginclrscr; writeln('vvedite chislo'); readln(stroka); a: =length(stroka); a: =trunc(a/2)+1; writeln(a); end.

2)

program pr1; uses crt; var stroka: string; a,i: integer; beginclrscr; writeln('vvedite stroku'); readln(stroka); a: =0; for i: =1 to length(stroka) do if stroka[i]=',' then a: =a+1; writeln(a); end.

3)

program pr1; uses crt; var stroka: string; a,i: integer; c: char; beginclrscr; writeln('vvedite stroku'); readln(stroka); writeln('vvedite simvol'); readln(c); a: =0; for i: =1 to length(stroka) do if stroka[i]=c then break else a: =a+1; writeln(a); end.

4)

program pr1; uses crt; var stroka: string; procedure word9(strokk: string); var i: integer; tmp: string; begin for i: =1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin writeln(tmp,' ',length(tmp)); tmp: =''; end else tmp: =tmp+stroka[i]; end; beginclrscr; writeln('vvedite predlogenie'); readln(stroka); word9(stroka); end.

6)

program pr1; uses crt; var stroka: string; a,i: integer; beginclrscr; a: =0; readln(stroka); for i: =1 to length(stroka) do if stroka[i] in ['a'..'z'] then a: =a+1; writeln(a); end.

7)

program pr1; uses crt; var stroka: string; procedure word8(strokk: string); var i: integer; begin for i: =1 to length(strokk) do if strokk[i]=' ' then strokk[i]: ='_'; writeln(strokk); end; beginclrscr; readln(stroka); word8(stroka); end.

8)

program pr1; uses crt; var stroka,tmp: string; i,a: integer; beginclrscr; readln(stroka); tmp: =''; a: =0; for i: =1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin a: =a+1; writeln(tmp,' ',a); tmp: =''; end else tmp: =tmp+stroka[i]; end.

9)

program pr1; uses crt; var stroka: string; procedure word7(strokk: string); var c: char; i,a: integer; begin a: =0; for i: =1 to length(strokk) div 2 do begin c: =strokk[i]; strokk[i]: =strokk[length(strokk)-a]; strokk[length(strokk)-a]: =c; a: =a+1; end; writeln(); for i: =1 to length(strokk) do write(strokk[i]); end; beginclrscr; readln(stroka); word7(stroka); end.

10)

program pr1; uses crt; var stroka,tmp: string; i,b: integer; beginclrscr; readln(stroka); stroka[1]: ='*'; for i: =1 to length(stroka) do if stroka[i]=' ' then for b: =i to length(stroka) do if stroka[b] in ['a'..'я'] then begin stroka[b]: ='*'; break; end;

writeln(stroka); end.

  11)

program pr1; uses crt; var stroka: string; i,b: integer; beginclrscr; readln(stroka); b: =0; for i: =1 to length(stroka) do if (stroka[i]='а') or (stroka[i]='а') or (stroka[i]='о') or (stroka[i]='о') then b: =b+1; writeln(b); end.