Помогите плиз:))
10-11 класс
|
В Visual Basic .
Sub z()
Dim mc(5, 5)
For i = 1 To 5
For j = 1 To 5
mc(i, j) = Int(Rnd * 10)
s = s & mc(i, j) & " "
sum = sum + mc(i, j)
Next j
s = s & "sum=" & sum & Chr(13)
sum = 0
Next i
MsgBox (s)
End Sub
Другие вопросы из категории
а: =8
б: =а*4
z: =б-28
а: =5
б: = а*2
z: = а*b
с: =10
d:= c/2
z: =с-d
в: = 6
а: = в * в
z: =а-в
1)Дано четырехзначное число N. Проверить,будет ли сумма его цифр четным числом.
2)Ввести целое число n и, если оно трехзначное,найти его цифры, в противном случае напечатать сообщение"Не могу найти цифры"
Читайте также
1.Сколько раз будет выполнена команда повторения в приведенных фрагментах при n=7:
1) for i :=n downto 4 do;
2)S:=S * i.
2. Определите, какой будет результат приведенного фрагмента: a:=100, n:=4:
for i:=1 to n do
a:=a - 2 * i.
Очень важно помогите.
Привет. Помогите плиз=)
№1)Составить алгоритм вывода среднего(не арифметического) из трёх чисел в виде блок-схемы.
Входные данные:три числа
Выходные данные:среднее число
№2) На вход подаётся число. Нужно вывести числа от данного до 10. Если оно изначально больше 10, завершить программу.