Задание:
Составить программу обработки данной строки, позволяющую: a) выписать все прописные буквы из данной строки в порядке их следования; b) определить, содержатся ли в тексте цифры; c) найти общее количество круглых, квадратных и фигурных скобок в тексте; d) выписать все знаки препинания из данной строки, сохранив их последовательность;
Решение:
A) var a: string; i: integer; begin readln (a); for i: =1 to length (a) do if (a[i] <> UpCase (a[i]) then write (a[i], '); end.b) var a: string; i, p: integer; q: boolean; begin readln (a); for p: =0 to 9 do for i: =1 to length (a) do if (a[i]=inttostr (p) then q: =true; writeln (q); end.c) var a: string; i, p, u: integer; o: array [0… 5] of char; begin readln (a); o[0]: =' ('; o[1]: =') '; o[2]: ='{'; o[3]: ='}'; o[4]: ='['; o[5]: =']'; for p: =0 to 5 do for i: =1 to length (a) do if (a[i]=o[p]) then u: =u+1; writeln (u); end.d) var a: string; i, p: integer; o: array [0… 7] of char; begin readln (a); o[0]: =' ('; o[1]: =') '; o[2]: ='? '; o[3]: ='! '; o[4]: ='"'; o[5]: ='.'; o[6]: =','; o[7]: =','; for i: =1 to length (a) do for p: =0 to 7 do if (a[i]=o[p]) then writeln (a[i]); end. Ну вотО, мой мозг, как же тебе досталось! ~_~
Знаете другой ответ?