Информатика
Информатика, 03.12.2019 21:08, 31752

Дана непустая последовательность слов из строчных букв; между соседними словами - запятая, за последним словом - точка. напечатать в алфавитном порядке все согласные буквы, которые входят только в одно слово.
проверьте моё решение и исправьте что не так,
var s, s1: string; st2,st3,st1,st: set of char; n, i: byte;
begin
readln(s);
n: =length(s);
st: =['б','в'];
i: =1;
while i< =n do begin
while (s[i]< > ',') or (s[i]< > '.') do begin
if s[i] in st1 then n: =n else
if (s[i] in st) then st1: =st1+[s[i]];
inc(i); if i=n then break;
end;
i: =i+1;
while (s[i]< > ',') or (s[i]< > '.') do begin
if s[i] in st1 then n: =n else
if (s[i] in st) then st2: =st2+[s[i]];
inc(i); if i=n then break
end;
st3: =st1*st2;
st1: =st1-st3; st2: =st2-st3; st1: =st1+st2;
end;
for i: =1 to n do
if s[i] in st1 then n: =n else write(s[i],' ');
end.

Ответ
Всего ответов: 3

Похожие вопросы

Предмет
Информатика, 12.03.2019 16:08, veronikkot2016
Составьте программу в паскале при умножении на 4 четырехзначного числа, все цифры которого различны, получается число, записываемое теми же цифрами, но в обратном порядке. какое это число?
Ответов: 1
Предмет
Информатика, 14.03.2019 16:00, nataxac
Как классифицируются сети по охватываемой ими площади?
Ответов: 3
Предмет
Информатика, 19.03.2019 05:10, отличница54575
Краткое название клавеши с помщью которой можно удалить символ располженный правее курсора 3буквы
Ответов: 1
Предмет
Информатика, 20.03.2019 12:50, Arthas1212523
3. шахматная доска состоит из 64 полей: 8 столбцов на 8 строк. какое минимальное количество бит потребуется для кодирования координат одного шахматного поля?
Ответов: 1
Предмет
Информатика, 21.03.2019 14:54, roman286
Для какого из имён истинно высказывание: не (первая буква согласная) и не (последняя буква гласная)? 1) ольга 2) михаил 3) валентина 4) ян
Ответов: 3
Предмет
Информатика, 25.03.2019 11:00, sandra107
Составте алгоритм для определения количества цифр в записи числа произвольного натурального числа.
Ответов: 2
Предмет
Информатика, 25.03.2019 13:10, konstontinopols
Задан массив чисел. замените каждое число суммой двух предыдущих.
Ответов: 2
Предмет
Информатика, 02.04.2019 20:42, concede
Нужно написать алгоритм для нахождения нод двух чисел в паскале
Ответов: 1
Вопросов на сайте: 10003229