profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

50 баллов. PascalABC
Дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами - запятая, после последнего слова - точка. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят хотя бы в одно слово.
Глухие согласные: к,п,с,т,ф,х,ц,ч,ш,щ.

  1. Ответ
    Ответ дан petyaGavrikov
    var s:string;
    gl,mn: set of char;
    i:integer;
    c:char;
    begin
    writeln('Введите текст:');
    readln(s);
    gl:=['к','п','с','т','ф','х','ц','ч','ш','щ'];
    mn:=[];
    for i:=1 to length(s) do
     if s[i] in gl then mn:=mn+[s[i]];
    for c:='к' to 'щ' do
     if c in mn then write(c:2);
    writeln;
    end.

    Пример:
    Введите текст:
    дан текст, состоящий из слов, содержащих только строчные русские буквы; между соседними словами - запятая, после последнего слова - точка.
     к п с т х ч щ
Самые новые вопросы