Подсчитать количество букв K и D в слове - QBasic

Узнай цену своей работы

Формулировка задачи:

Помогите решить задачи: а) Дан массив В (N). Если пятый элемент таблицы меньше десятого элемента, то присвоить этим элементам удвоенное собственное значение, иначе обнулить эти элементы массива. Вывести на экран монитора первоначальный и преобразованный массивы. б) Дан массив В (N,N). Найти минимальный элемент в массиве и его местоположение. в) Подсчитать количество букв K и D в слове.

Решение задачи: «Подсчитать количество букв K и D в слове»

textual
Листинг программы
INPUT "enter text: ", a$
FOR i = 1 TO LEN(a$)
    q$ = MID$(a$, i, 1)
    IF q$ = "K" OR q$ = "D" THEN k = k + 1
NEXT
PRINT k

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы