Задайте символьный массив. Найдите и выведите на экран те слова, которые оканчиваются на букву «Я» — QBasic(Бейсик)

INPUT "vvedite kol-vo slov ", n
DIM a$(n)
FOR i = 1 TO n
    INPUT "vvedite slovo ", a$(i)
NEXT

FOR i = 1 TO n
    IF RIGHT$(a$(i), 1) = "я" THEN PRINT a$(i)
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment