Посторить множество, в состав которого входят знаки операций отношения и знаки препинания

@rudnik275 · Регистрация: 01.11.2012

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

дана непустая последовательность символов. нужно посторить и напечатать множину к составу которой входят знаки операций отношения и знаки препинания

@КонецСвета · 05.11.2012, 01:32

Pascal

uses crt;
const z=['<','>','=',',','.','?','!',':',';','-'];
var s: string;
    m: set of char;
    i: byte;
begin
write('s='); readln(s);
m:=[];
for i:=1 to length(s) do
    if s[i] in z then m:=m+[s[i]];
writeln('В множество входят: ');
for i:=1 to 255 do
    if chr(i) in m then write(chr(i),' ');
end.

@rudnik275 0 / 0 / 0 Регистрация: 01.11.2012 Сообщений: 18
		1
	Посторить множество, в состав которого входят знаки операций отношения и знаки препинания 03.11.2012, 02:22. Показов 3398. Ответов 1 Метки нет (Все метки) дана непустая последовательность символов. нужно посторить и напечатать множину к составу которой входят знаки операций отношения и знаки препинания 0

	05.11.2012, 01:32

Посторить множество, в состав которого входят знаки операций отношения и знаки препинания

Решение