Arash12345
13.06.2021 16:05

Дана непустая последовательность слов из строчных букв; между соседними словами - запятая, за последним словом - точка. напечатать в алфавитном порядке все согласные буквы, которые входят только в одно слово.
проверьте моё решение и исправьте что не так,
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.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
linmiss
19.06.2020 06:48

1)128000  переводим в байты (128000  / 8 =  16000)

16000 переводим в килобайты (  16000 / 1024 =  15,625)

500килобайт делим на  15,625 получаем 32секунды.

2)512000  переводим в байты (512000  / 8 =  64000)

64000 переводим в килобайты (  64000 / 1024 =  62,5 )

62,5 умножаем на 46секунд, получаем  2875

3)128000  переводим в байты (128000  / 8 =  16000)

16000 переводим в килобайты (16000 / 1024 =  15,625)

1минуту 20сек переводим в секунды (60+20=80)

15,625 килобайт умножаем на 80секунд, получаем  1250килобайт

0,0(0 оценок)
Ответ:
Faleck
28.06.2022 06:35

ответ:

представители профессии электромонтера являются достаточно востребованными на рынке труда. несмотря на то, что вузы выпускают большое количество специалистов в этой области, многим компаниям и на многих предприятиях требуются квалифицированные электромонтеры.

объяснение: большинство опрошенных считает, что профессию электромонтера нельзя назвать редкой, в нашей стране она достаточно распространена. уже несколько лет на рынке труда наблюдается спрос на представителей профессии электромонтера, несмотря на то, что специалистов каждый год выпускается немало.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота