Ввести целые числа в переменные а, б, с.нечетные значения уменьшить на единицу

Sub z()                       'начало программы с именем z dim a as integer         'создаем ячейку с именем а для целых чисел dim b as integer         'создаем ячейку с именем b для целых чисел dim c as integer         'создаем ячейку с именем c для целых чисел a = inputbox("введите a: ")   'просим пользователя ввести какое-нибудь число. записываем его в ячейку а if a mod 2 = 1 then a = a - 1 'если остаток от деления на 2 равен 1, то число а уменьшаем на единицу b = inputbox("введите b: ") 'просим пользователя ввести какое-нибудь число. записываем его в ячейку b if b mod 2 = 1 then b = b - 1 'если остаток от деления на 2 равен 1, то число b уменьшаем на единицу c = inputbox("введите c: ") 'просим пользователя ввести какое-нибудь число. записываем его в ячейку c if c mod 2 = 1 then c = c - 1 'если остаток от деления на 2 равен 1, то число c уменьшаем на единицу msgbox ("a=" & a & "; b=" & b & "; c=" & c) 'выводим на экран текст  a=. затем число из ячейки а, затем печатаем знаки  ; b=, потом число из ячейки b, затем знаки  ; c= и число из ячейки с end sub   'конец программы 

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var m: =arrrandom(readinteger('n=',20); m.println;   (var k,var s): =(0,0);   for var i: =1 to m.length-2 do       if (m[i]< m[i-1]) and (m[i]< m[i+1]) then (k,s): =(k+1,s+m[i]);   writeln('свойство а: кол-во=',k,', сумма=',s);   var mb: =m.where(x-> x< 0).toarray;   write('свойство б: '); mb.println;   var z: =readinteger('z1=');   var mmin: =m.min;   m.transform(x-> x=mmin? z: x); writeln('свойство b: '); m.println;   m.sort; writeln(' по неубыванию: '); m.println;   var p,q: integer; write('введите p q: '); read(p,q);   m: =m.where(x-> (x mod p< > 0) and (x mod q< > ;   writeln('свойство г: '); m.println;   z: =readinteger('z2=');   p: =m.findindex(x-> x> =z);   if m[p]< > z then m: =(m[: p]+arr(z)+m[p: ]).toarray;   writeln('после попытки вставки: '); m.println end. пример n= 17 3 5 -5 12 -15 6 11 -7 -13 -3 -17 8 -7 8 -5 -15 -7 свойство а: кол-во=6, сумма=-72 свойство б: -5 -15 -7 -13 -3 -17 -7 -5 -15 -7 z1= -33 свойство b: 3 5 -5 12 -15 6 11 -7 -13 -3 -33 8 -7 8 -5 -15 -7 по неубыванию: -33 -15 -15 -13 -7 -7 -7 -5 -5 -3 3 5 6 8 8 11 12 введите p q: 3 7 свойство г: -13 -5 -5 5 8 8 11 z2= 0 после попытки вставки: -13 -5 -5 0 5 8 8 11

Формальное решение на случай, если ваш qbasic не распознаёт кириллицу(формальное, потому что отображаться будет правильно, но текст с кириллицей ввести не получится): dim s$, c$ cls input "bbedite text: ", s$ k = 0 s$ = lcase$(s$) for i = 1 to len(s$) c$ = mid$(s$, i, 1) if (c$ = "  ") or (c$ = "ґ") or (c$ = "ё") or (c$ = "®") or (c$ = "г") or (c$ = "л") or (c$ = "н") or (c$ = "о") or (c$ = "п") then k = k + 1 end if next i print "k = "; k end если поддерживает кириллицу: dim s$, c$ cls input "bbedite text: ", s$ k = 0 s$ = lcase$(s$) for i = 1 to len(s$) c$ = mid$(s$, i, 1) if (c$ = "а") or (c$ = "е") or (c$ = "и") or (c$ = "о") or (c$ = "у") or (c$ = "ы") or (c$ = "э") or (c$ = "ю") or (c$ = "я") then k = k + 1 end if next i print "k = "; k end