Вопрос по информатике:
Завдання:Ввести прізвище, ім'я,по батькові як одне дане строкового типу.
1)Чи починається хоча б одне слово з букви 'М'??
Будь-ласка
Пожаловаться
- 20.03.2018 05:38
- Информатика
- remove_red_eye 15352
- thumb_up 36
Ответы и объяснения 1
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
begin
var fio:=ReadlnString('Введите Фамилию Имя Отчество->');
var b:=0;
for var i:=1 to fio.Length-1 do
if (fio[i]='М') or (fio[i]='м')
then b+=1;
if b0 then Println('Буква "М" есть в строке. Она повторяется',b,'раз(а).') else Println('Буквы "М" нету в строке.');
end.
Пример:
1) Введите Фамилию Имя Отчество-> Миг Мария Моисеева
Буква "М" есть в строке. Она повторяется 3 раз(а).
2) Введите Фамилию Имя Отчество-> Петренко Петр Петрович
Буквы "М" нету в строке.
//Версия 3.3. сборка 1583 (25.11.2017)
begin
var fio:=ReadlnString('Введите Фамилию Имя Отчество->');
var b:=0;
for var i:=1 to fio.Length-1 do
if (fio[i]='М') or (fio[i]='м')
then b+=1;
if b0 then Println('Буква "М" есть в строке. Она повторяется',b,'раз(а).') else Println('Буквы "М" нету в строке.');
end.
Пример:
1) Введите Фамилию Имя Отчество-> Миг Мария Моисеева
Буква "М" есть в строке. Она повторяется 3 раз(а).
2) Введите Фамилию Имя Отчество-> Петренко Петр Петрович
Буквы "М" нету в строке.
Пожаловаться
- 21.03.2018 18:37
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы