Практические, проверочные и домашние работы

Задача 4.
Чему будут равны переменные А$ и B$ после выполнения следующих программ?

А)
A$ = 'РАДИО'
B$ = 'ВЕЩАНИЕ'
B$ = A$ + B$
A$ = MID(B$, 3, 3) + MID(A$, 3, 1)
print A$
print B$

В)
A$ = "КРИМИНАЛИСТИКА"
if MID(A$, 3, 2) > MID(A$, 5, 2) then goto m60
B$ = MID(A$, 8, 6)
A$ = MID(A$, 1, 3) + MID(A$, 11, 4)
goto m80
m60: A$ = MID(A$, 4, 2) + MID(A$, 10, 5)
B$="Г"+MID(A$,3,2)+MID(A$,6,1)+MID(A$,7,1)+MID(A$,10,5)
m80: print A$
print B$
end

Задача 5.
Составить программу для подсчёта количества слов в заданной фразе.
Идея: посчитать количество пробелов между словами.

clg
input 'Введите текст', R$
S=0
for I=1 to length(R$)
if mid(R$, I, 1)=' ' then S=S+1
next I
print S+1;
print 'Cлов в заданной фразе'


Задача 6.
Составить программу для определения номера первой встречающейся в заданной фразе буквы К.

clg
input 'Введите текст', R$
for I=1 to length(R$)
if mid(R$,I,1)='к' then goto n50
next I
print 'Буквы к в заданной фразе нет'
end
n50: print 'Номер первой буквы к - ';
print I

Задача 7.
Составить программу для определения, сколько слов в заданной фразе кончаются на А.

clg
S=0
input 'Введите текст', W$
W$=W$+' '
for I=1 to length(W$)
if mid(W$, I, 1)<> ' ' then goto K
if mid(W$, I-1, 1)= 'а' then S=S+1
K: next I
if mid(W$, length(W$), 1)= 'а' then S=S+1
print S;
print ' - слов в заданной фразе кончаются на а'

Приложения

Задачник-практикум (Т. 1), 4.4.6 [4]