Меню сайта

Задача №3

Дан текст на русском языке. Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят хотя бы в одно слово.


Program mn_3-

uses crt-

type let=’ -а’..’я’-

var sogl:set of let-

text: set of char-

c:char-

s:string-

i:byte-

begin

writeln(‘введите текст, заканчивающийся — точкой’)-

readln(s)-

if s[length(s)]&lt-&gt-‘.’ then s:=s+’.’-

text:=[]-

sogl :=[‘б’,’в’,’г’,’д’,’ж’,’з’,’л’,’м’,’н’,’р’]-

repeat

if s[i] in sogl then text:=text+[s[i]]-

i:=i+1-

until s[i]=’.’-

for c:=’a’ — to ‘я’ do if c — in text then write(c)-

readln-

end.

Категория: Множества | Дата: 25.12.12

Меню раздела
Блок