var
i:byte;
s:string;
c:char;
begin
write('Введите текст:');
readln(s);
for c:='a' to 'z' do
for i:=1 to length(s) do
if (s[i]=c)or(UpCase(c)=s[i]) then write(UpCase(s[i]));
readln;
end.
Следующий вариант
var
i:byte;
s:string;
c:char;
begin
write('Введите текст:');
readln(s);
for c:='а' to 'я' do
for i:=1 to length(s) do
if (s[i]=c)or(UpCase(c)=s[i]) then write(UpCase(s[i]));
readln;
end.
Похожие записи/страницы:
- Дан текст. Вывести все слова, предварительно заменив в них первую букву на заглавную - Pascal(Паскаль)
- Дан текст . Определить , сколько в нем предложений - Pascal(Паскаль)
- В строке все слова разделены пробелами и написаны с маленькой буквы заменить, необходимо заменить первую…
- Дан текст содержащий полное название организации. Получить аббревиатуру этой организации. В названии могут…
- Введите предложение длиной не более 70 символов, Подсчитайте количество слов, заканчивающихся согласными…
- Составить программу, считающую число слов, заканчивающихся и начинающихся одной и той же буквой, в строке,…
- В тексте проверить все ли предложения начинаются с заглавной буквы, если есть предложения которые начинаются с…
- Дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят хотя…