Меню сайта

Задача №2

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


Program mn_2-

uses crt-

type let=’a’..’z’-

var gl:set of let-

s:string-

i:byte-

begin

writeln(‘введите текст’)-

readln(s)-

gl:=[‘a’,’e’,’i’,’o’,’u’,’y’]-

i:=1-

repeat

while s[i] in gl do delete(s,i,1)-

s[i]:=upcase(s[i])-

i:=i+1-

until s[i]=’.’-

writeln-

readln-

end.

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

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