Выяснить какие знаки препинания встречаются в каждой строке, какие знаки препинания встречаются в 1 строке и не встречаются во второй и наоборот

@Daren · Регистрация: 07.06.2012

Author24 — интернет-сервис помощи студентам

Вводятся две строки. Выяснить какие знаки препинания встречаются в каждой строке, какие знаки препинания встречаются в 1 строке и не встречаются во второй и наоборот..

@КонецСвета · 15.06.2012, 11:34

Pascal

uses crt;
const z: set of char=['.',',',';',':','"','!','?','-','…'];
var s1,s2: string;
    z1,z2,r: set of char;
    i: byte;
begin
z1:=[]; z2:=[];
write('s1=');readln(s1);
write('s2=');readln(s2);
for i:=1 to length(s1) do
    if s1[i] in z then z1:=z1+[s1[i]];
for i:=1 to length(s2) do
    if s2[i] in z then z2:=z2+[s2[i]];
writeln('В каждой строке встречаются: ');
r:=z1*z2;
for i:=1 to 255 do
    if chr(i) in r then write(chr(i),' ');
writeln;
writeln('В первой строке встречаются, во второй - не встречаются: ');
r:=z1-z2;
for i:=1 to 255 do
    if chr(i) in r then write(chr(i),' ');
writeln;
writeln('Во второй строке встречаются, в первой - не встречаются: ');
r:=z2-z1;
for i:=1 to 255 do
    if chr(i) in r then write(chr(i),' ');
writeln;
end.

@Daren 0 / 0 / 0 Регистрация: 07.06.2012 Сообщений: 8
		1
	Выяснить какие знаки препинания встречаются в каждой строке, какие знаки препинания встречаются в 1 строке и не встречаются во второй и наоборот 14.06.2012, 18:00. Показов 1293. Ответов 1 Метки нет (Все метки) Вводятся две строки. Выяснить какие знаки препинания встречаются в каждой строке, какие знаки препинания встречаются в 1 строке и не встречаются во второй и наоборот.. 0

	15.06.2012, 11:34

Выяснить какие знаки препинания встречаются в каждой строке, какие знаки препинания встречаются в 1 строке и не встречаются во второй и наоборот

Решение