Sub Zadanie16084380()
' Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы-
' числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе-
' ство положительных элементов i-той строки.
' Если в i-той строке положительных элементов нет, то i-тая строка в матрице
' Z должна быть заполнена нулями
Const N = 4
Dim Y,Z,K
ReDim Y(N, N), Z(N, N), K(N)
S=""
Randomize
For i = 0 To N
K(i) = 0
For j = 0 To N
Y(i, j) = Int(100 * Rnd) - 50
S = S & Y(i, j) & " "
If Y(i, j) > 0 Then
K(i) = K(i) + 1
End If
Next
S = S & vbNewLine
Next
S = S & vbNewLine
For i = 0 To N
For j = 0 To N
if K(i) = 0 then
Z(i, j) = 0
else
Z(i, j) = Y(i, j) / K(i)
end if
S = S & Z(i, j) & " "
Next
S = S & vbNewLine
Next
MsgBox (s)
End Sub
Call Zadanie16084380()
код написан на VBScript
JAVA
class Main{
p s v main(String[] args]{
int N, X, Y, S;
Scanner sc = new Scanner(System.in) // Ввод
int toExit = 1;
while(toExit != 0){
N = sc.nextInt();
if(1 <= N =< 50)
tiExit = 0};
int toExit = 1;
while(toExit != 0){
X = sc.nextInt();
if(10 <= N =< 50)
tiExit = 0};
int toExit = 1;
while(toExit != 0){
N = sc.nextInt();
if(5 <= N =< 15)
tiExit = 0};
S = (N * X) + (N * Y);
System.out.print("S: " + S);
}}
Ты хотя бы сфотал тетрадь
Тебе нужно ввести число 2 в степени N.
Но по условию задачи (просто эта задача находится у нас в dots) это число может быть равно 25. А число 2 в 25 степени довольно большое.
Поэтому единственное что осталось написать - это алгоритм возведения N в квадрат (но длинной арифметикой).
