Напишите программу, которая в последовательности натуральных чисел определяет мини¬мальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Программа должна вывести одно число — минимальное число, кратное 3.

181

229

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

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

Dany200808

Информатика

4,6(37 оценок)

Решение на vb.net: const size as integer = 4 dim a, sum as integer a = console.readline() sum = a dim n(size) as integer for i = 1 to size n(i) = a mod 10 a \= 10 next for i = 1 to size for j = i + 1 to size if n(i) > n(j) then dim t as integer t = n(i) n(i) = n(j) n(j) = t elseif n(i) = n(j) then console.writeline("ошибка") exit sub end if next next for i = 1 to size sum += (n(i) + n(size - i + 1)) * 10 ^ (i - 1) next console.writeline(sum) console.readkey()