Решение задачи

@neonick911 · Регистрация: 04.09.2015

Author24 — интернет-сервис помощи студентам

Помогите выполнить задание!!!
При помощи датчика случайных чисел вводится последовательность {ai}, состоящая из N (случайное двухзначное число) целых положительных случайных трехзначных чисел. Из последовательности {ai} получить последовательность {bi}, переставив в элементах ai две крайние цифры. Обе последовательности вывести в соседние столбцы рабочего листа.
Заранее СПАСИБО!!!

@chumich · 04.09.2015, 22:13

Visual Basic

Option Base 1
Sub mac1()
N = Int((90 * Rnd) + 10)
ReDim a(N), b(N)
For i = 1 To UBound(a)
    a(i) = Int((900 * Rnd) + 100)
    b(i) = Right(CStr(a(i)), 1) + Mid(CStr(a(i)), 2, 1) + Left(CStr(a(i)), 1)
    Cells(i, 1) = a(i)
    Cells(i, 2) = b(i)
Next
End Sub

@Казанский · 04.09.2015, 22:41

можно так

Visual Basic

1	b(i) = a(i) + (a(i) Mod 10 - a(i) \ 100) * 99

1-я цифра a(i) \ 100 вычитается с коэф. 100 и прибавляется с коэф. 1, третья цифра a(i) Mod 10 вычитается с коэф. 1 и прибавляется с коэф. 100.

@neonick911 0 / 0 / 0 Регистрация: 04.09.2015 Сообщений: 1
		1
	Решение задачи 04.09.2015, 16:07. Показов 941. Ответов 2 Метки нет (Все метки) Помогите выполнить задание!!! При помощи датчика случайных чисел вводится последовательность {ai}, состоящая из N (случайное двухзначное число) целых положительных случайных трехзначных чисел. Из последовательности {ai} получить последовательность {bi}, переставив в элементах ai две крайние цифры. Обе последовательности вывести в соседние столбцы рабочего листа. Заранее СПАСИБО!!! 0

	04.09.2015, 22:41