Составте программу, вычеркивающую каждую вторую букву слова X - QBasic

QBasic

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

Войти

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

Рейтинг 5.00/7:

@Валерий Б 0 / 0 / 0 Регистрация: 22.04.2013 Сообщений: 6

	Составте программу, вычеркивающую каждую вторую букву слова X 22.04.2013, 20:28. Показов 1352. Ответов 1 Метки нет (Все метки) составте программу ,вычеркивающую каждую вторую букву слова X 0

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

22.04.2013, 20:28

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

Составте программу, определяющую, есть ли последняя буква слова X в слове X
составте программу ,определяющую ,есть ли последняя буква слова X в слове X. Валерий Б, обращаю ваше внимание на правила оформления...

Составьте программу вычеркивающую каждую 3-ю букву слова X
Помогите пожалуйста)

Составить программу, вычеркивающую каждую третью букву слова Х.
Составить программу, вычеркивающую каждую третью букву слова Х.

xod

156 / 46 / 70

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

Сообщений: 185

16.07.2014, 12:42

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

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
DEFSTR X-Z
CLS
INPUT "SLOVO X ="; x
 
z = ""
 
FOR i% = 1 TO LEN(x) STEP 2
   y = MID$(x, i%, 1)
   z = z + y
NEXT i%
 
PRINT z
END

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

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

16.07.2014, 12:42

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

Составьте программу, вычеркивающую каждую третью букву слова X
Помогите написать программу на строки. Составьте программу, вычеркивающую каждую третью букву слова X.

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

Убрать каждую вторую букву слова
Ввести слово.убрать каждую вторую букву к.вывести результат на экран.

Нужно составить программу вычеркивающую каждвю третью букву слова!
помогите пожалуйста

Убрать из слова каждую вторую гласную букву в диапазоне от 8 до 13 буквы
тема: текстовые файлы. убрать из слова каждую вторую гласную букву в диапазоне от 8 до 13 буквы.

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

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

Новые блоги и статьи Все статьи Все блоги /
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 секунды (а то и больше),. . .

Наверх