Составить программу обработки данной строки, позволяющую: a) выписать все прописные буквы из данной строки в порядке их следования; b) определить, содержатся ли в тексте цифры; c) найти общее количество круглых, квадратных и фигурных скобок в тексте; d) выписать все знаки препинания из данной строки, сохранив их последовательность;

267

422

Посмотреть ответы 2

Ответы на вопрос:

ksushadream1

Информатика

4,5(25 оценок)

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.ну вот: ) о, мой мозг, как же тебе досталось! ~_~