Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результ - Pascal

Формулировка задачи:

- Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результат на дисплей в виде строки. - Длина строки заранее не вводится, а определяется после окончания ввода с клавиатуры. - В строке группы символов разделяются одним или несколькими пробелами. Пробелы могут находиться в начале и в конце строки. Группа символов - последовательность букв, цифр или знаков, отделенная пробелами от других групп или находящаяся в начале/конце строки. - Все буквы считать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать. - В заголовок окна программы записать свои данные: имя, фамилию и номер варианта. Примеры возможных строк: ‘ 12.3 tryi yu ()?*‘, ‘ 6е-1 swty +12_3‘ Напечатать: Группы символов, состоящие только из латинских букв, если в них есть повторяющиеся буквы.

Код к задаче: «Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результ - Pascal»

textual
var
  s,t,r:string;
  i,j:integer;
  b,k:boolean;
  a:set of char;
begin
  write('Enter text:');
  readln(s);
  s:=s+' ';
  t:='';
  r:='';
  b:=true;
  for i:=1 to length(s) do
    if s[i]<>' ' then begin
      if s[i] in ['a'..'z'] then t:=t+s[i] else b:=false;
    end else begin
      a:=[];k:=false;
      for j:=1 to length(t) do if t[j] in a then k:=true else include(a,t[j]);
      if k and b then r:=r+t+' '; 
      t:='';b:=true;
    end;
  writeln('Result:',r);
  readln;
end.

10   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ