Pascal. Дана непустая последовательность слов из строчных русских букв;
между соседними словами – запятая, за последним словом – точка. Напечатать звонкие согласные буквы, которые входят в каждое нечетное слово и не входят ни в одно четное слово в алфавитном порядке все.
<em><u>Вариант для тех, кто любит и понимает множества.</u></em> const cs='бвгджз'; var s:string; i:integer; c:char; p,csg:set of char; begin Writeln('Введите текст, разделяя слова запятыми, в конце поставьте точку'); Readln(s); p:=[]; for i:=1 to Length(cs) do Include(csg,cs[i]); { инициализация множества } s:=LowerCase(s); { приведение к нижнему регистру } i:=1; c:=s[1]; while c<>'.' do begin { обработка нечетного слова } while not (c in [',','.']) do begin if (c in csg) and not (c in p) then Include(p,c); i:=i+1; c:=s[i] end; { обработка четного слова } if c<>'.' then begin i:=i+1; c:=s[i] end; while not(c in [',','.']) do begin if (c in csg) and (c in p) then Exclude(p,c); i:=i+1; c:=s[i] end; if c<>'.' then begin i:=i+1; c:=s[i] end end; s:=''; for i:=1 to Length(cs) do if cs[i] in p then Write(cs[i]) end.
<em><u>Тестовое решение:</u></em> Введите текст, разделяя слова запятыми, в конце поставьте точку Это,пример,текста,созданного,для,проверки,программы. гд
<em><u>Вариант для тех, кто с множествами не дружит:</u></em> const cs='бвгджз'; var s,p:string; i,n:integer; c:char; begin Writeln('Введите текст, разделяя слова запятыми, в конце поставьте точку'); Readln(s); p:=''; n:=Length(cs); s:=LowerCase(s); { приведение к нижнему регистру } i:=1; c:=s[1]; while c<>'.' do begin { обработка нечетного слова } while (c<>',') and (c<>'.') do begin if (Pos(c,cs)>0) and (Pos(c,p)=0) then p:=p+c; i:=i+1; c:=s[i] end; { обработка четного слова } if c<>'.' then begin i:=i+1; c:=s[i] end; while (c<>',') and (c<>'.') do begin if (Pos(c,cs)>0) and (Pos(c,p)=1) then p[Pos(c,p)]:='*'; i:=i+1; c:=s[i] end; if c<>'.' then begin i:=i+1; c:=s[i] end end; for i:=1 to Length(cs) do if Pos(cs[i],p)>0 then Write(cs[i]) end.
<em><u>Тестовое решение:</u></em> Введите текст, разделяя слова запятыми, в конце поставьте точку Данная,фраза,предлагается,для,тестирования. вг
Нужно держать голову прямо и что бы расстояние между компьютером и головой должно быть 90-80 см ,для того что бы не потерять зрение , спина должна быть прямая и не сутулая что бы не потерять осанку и не нарушить позвоночьник
Получается, мы должны найти кол-во чисел в диапазоне от минимального числа из одиннадцати цифр - это единица и десять нулей, до максимального из тридцати цифр - это число состоящее из тридцати девяток. Данное кол-во чисел равно разности наибольшего и наименьшего. Наименьшее число состоит из единицы и нулей, как мы поняли раньше, а значит только одна из цифр числа с тридцатью девятками изменится и станет восьмеркой. Следовательно, в таком числе будет двадцать девять девяток и одна восьмерка, значит ответом будет: Двадцать девять.
Могу примерный план , может , что то пригодится. <span>1. Женя купила семь баранок. 2. Собака съела все баранки. 3. Старушка дала Жене цветик-семицветик. 4. Женя загадала желание и оказалась дома. 5. Она оторвала второй лепесток. 6. Вазочка стала целой. 7. Женя пошла во двор. 8. Она загадала желание и очутилась на Северном полюсе. 9. Женя оторвала четвертый лепесток и вернулась во двор. 10. Она загадала, чтобы появилось много игрушек. 11. Куклы, машинки, мячики заполнили все улицы. 12. Женя оторвала шестой лепесток. 13. Игрушки пропали. 14. Женя увидела больного мальчика на скамейке. 15. Женя загадала желание. 16. Мальчик выздоровел.</span>