перевести код на СИ. var
A:set of char;
B:set of char;
t:char;
x:integer;
s:string;
begin
writeln('Введите последовательность символов');
readln(s);
B:=[ ];
A:=['0'..'9','.',',',':',';','!','?','"'];

for x := 1 to length(s) do
if s[x] in A then include (B,s[x]);

Writeln('Множество знаков препинания и цифр из этой последовательности: ');
for t := #0 to #255 do
if t in B then write(t, ' ');

dreytes    1   05.04.2021 16:30    0