Вмассиве f(15) найти сумму элементов, стоящих на нечетных местах

295

352

Посмотреть ответы 2

Ответы на вопрос:

JaanB

Информатика

4,5(4 оценок)

Const n = 15; var i, s: integer; a: array[1..n] of integer; begin s : = 0; for i : = 1 to n do begin write('a[', i, ']='); readln(a[i]); if i mod 2 = 1 then s : = s + a[i]; end; writeln(s); end.

vtkmlth

Информатика

4,7(91 оценок)

Формальное решение на случай, если ваш 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