Вывести из введенного списка фамилий фамилии, начинающиеся на буквы А и Б - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.73/15:

@Kursant_999 1 / 1 / 2 Регистрация: 18.03.2012 Сообщений: 28

	Вывести из введенного списка фамилий фамилии, начинающиеся на буквы А и Б 13.05.2012, 13:24. Показов 3072. Ответов 1 Метки нет (Все метки) Вывести из введенного списка фамилий фамилии, начинающиеся на буквы А и Б пс. заранее спасибо 0

Лучшие ответы (1)

Сообщение: #3024538

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

13.05.2012, 13:24

Ответы с готовыми решениями:

Имеется несколько фамилий. Вывести фамилии, начинающиеся на заданную букву
помогите составить блок схему и решить задачу!!!!!!!!!! плиззззззззз плизззззззззз в паскале " Имеется несколько фамилий ....

Вывести фамилии, начинающиеся на буквы В, Г, Д
zss, Спасибо! Скажите, вот хочу что бы он мне выводил данные, фамилии которых начинается на букву В, Г, Д. Он не показывает, подскажете...

Вывести на экран похожие фамилии из заданного списка фамилий
Задан список некоторых фамилий. Две фамилии назовем похо¬жими, если одна из них может быть получена из другой путем добавления какой-либо...

Фаер

792 / 398 / 260

Регистрация: 09.12.2011

Сообщений: 786

Записей в блоге: 53

13.05.2012, 13:53

Сообщение было отмечено Kursant_999 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Var A:array[1..100] of string; i,t:integer;
Begin
Repeat
 inc(t);{увеличиваем t на один}
 Readln(A[t]);{читаем строку}
Until A[t]='0';{окончание по вводу нуля}
For i:=1 to t do
 If (A[i][1]='А') or (A[i][1]='Б') then Writeln(A[i]);
End.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

13.05.2012, 13:53

Помогаю со студенческими работами здесь

Вывести фамилии жителей города, начинающиеся с буквы «П»
помогите пожалуйста написать программу в делфи: там должны быть Записи с анкетными данными (фамилия, год рождения, номер паспорта,...

Вывести на экран все фамилии, начинающиеся с заданной буквы
В файле содержится информация (20-30 строк), например: Иванов Петр Петров Василий Семенов Иван и т.д. Разработать...

Вывести из списка фамилии, начинающиеся на заданную букву
Всем привет,прошу помощи , мне надо создать файл,содержащий список фамилий и обеспечить вывод фамилий,которые начинаются с буквы,вводимой...

В заданном списке фамилий найти фамилии, начинающиеся на букву «к» и оканчивающиеся на букву «а»
В заданном списке фамилий найти фамилии, начинающиеся на букву «к» и оканчивающиеся на букву «а».

Определить фамилии, начинающиеся с гласной буквы
Доброго времени суток! Помогите, пожалуйста, сделать задание: Даны три фамилии. Определить фамилии, начинающиеся с гласной буквы. Сделать...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

Наверх