Задайте символьный массив из 6 элементов Подсчитайте количество букв К содержащихся во всех элементах массива! выведите на экран массив и найденное количество- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
DIM a$(6)
FOR i = 1 TO 6
    INPUT a$(i)
NEXT
 
FOR i = 1 TO n
    IF MID$(a$(i), i, 1) = "k" THEN m = m + 1
NEXT
FOR i = 1 TO n
    PRINT a$(i)
NEXT
PRINT "kol="; m

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

Похожие записи/страницы:

Leave a Comment