На qbasic. дан массив целых чисел. найти сумму нечётных элементов.

266

439

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

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

tseng7788

Информатика

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

Dim a(1 to 10) cls randomize (timer) s = 0 for i = 1 to 10 a(i) = cint(21 * rnd - 11) print a(i); if a(i) mod 2 < > 0 then s = s + a(i) next i print print "s = "; s

Sveto4ka342

Информатика

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

Пусть а - основание системы исчисления, тогда 30(а) = 3*а+0 50(а) = 5*а+0, 100(а) = а^2+0*a+0 = a^2 a^2 = 3a+5a => a^2-8a = 0 => a(a-8) = 0 => a=8 восьмеричная система исчисления.