Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Andrey121121
-2 / 0 / 0
Регистрация: 06.12.2011
Сообщений: 23
1

Вывести на экран все русские согласные буквы строки

06.12.2011, 16:09. Просмотров 1266. Ответов 2
Метки нет (Все метки)

Решить задачу!

Задание 1 "Вывести на экран все русские согласные буквы строки."

Задание 2 "Определить длину последнего слова в тексте."
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2011, 16:09
Ответы с готовыми решениями:

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

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

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

Напечатать все строчные русские согласные глухие буквы
Напечатать все строчные русские согласные глухие буквы (к,п,с,т,ф,х,ц,ч,ш,щ), входящие в текст по...

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

2
КонецСвета
Почетный модератор
7942 / 3913 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
06.12.2011, 16:24 2
Лучший ответ Сообщение было отмечено Andrey121121 как решение

Решение

в первом задании не ясно - выводить эти русские согласные в единственном экземпляре или столько, сколько в строке...
для начала второй вариант
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var s,sg: string;
    i: integer;
begin
write('s=');
readln(s);
sg:='йцкнгшщзхфвпрлджчсмтбЙЦКНГШЩЗХФВПРЛДЖЧСМТБ';
for i:=1 to length(s) do
    if pos(s[i],sg)<>0 then write(s[i]);
end.
Добавлено через 58 секунд
а вот и второй вариант первой задачи
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var s,sg: string;
    i: integer;
begin
write('s=');
readln(s);
sg:='йцкнгшщзхфвпрлджчсмтбЙЦКНГШЩЗХФВПРЛДЖЧСМТБ';
for i:=1 to length(sg) do
    if pos(sg[i],s)<>0 then write(sg[i]);
end.
Добавлено через 2 минуты
а вот и вторая задачка...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var s: string;
    i,d: integer;
begin
write('s=');
readln(s);
i:=length(s);
while s[i]<>' ' do
      begin
      inc(d);
      dec(i);
      end;
writeln('Длина последнего слова ',d);
end.
1
Andrey121121
-2 / 0 / 0
Регистрация: 06.12.2011
Сообщений: 23
06.12.2011, 16:27  [ТС] 3
Спасибо большое! а там без разницы.задача не конкретно же написанна

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2011, 16:27

Вывести на экран все звонкие согласные буквы
1)Дана последовательность русских слов (строчными буквами) разделенных запятыми (не менее 10-и...

Строки. Вывести на экран все слова, в которых все буквы разные
Дан текст из слов, разделенных пробелами. Вывести на экран все слова, в которых все буквы разные....

Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D
Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D. Заранее...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru