Синквеин к слову информация?

Question

Информатика: Синквеин к слову информация?

ElzaMi13 · Accepted Answer

Var s,st: string;     a: array[1..255] of integer;     i: integer;     begin   write( строка: );  readln(s);   for i:=1 to 255 do a[i]:=0;   for i:=1 to length(s) do inc(a[ord(s[i])]);   st:= ;   for i:=1 to length(s) do     if ((a[ord(s[i])] =2) and        (s[i] in [ а .. я ]))  then continue     else st:=st+s[i];   writeln( новая строка: ,st); end. строка: Это строка для проверки. новая строка: Э са для пвеи. Если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы:...

MOGZ ответил