Задание:
РЕБЯТ ПОМОГИТЕ ПОЖАЛУЙСТА, ХОТЯ БЫ ЧТО ТО ОДНО! Через программу PASCAL: 1) запись заданного длинногоцелого числа имеет нечетное количество цифр. Вывести на экран среднюю цифру.
Решение:
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.
Знаете другой ответ?