Массив A из 4 элементов заполняется по формуле. Установите соответствие между формулой и полученным массивом. 1.for x:=1 to 4 do A[x]:=x*(x+1);
2. for x:=1 to 4 do A[x]:=3*x-1;
3. for x:=1 to 4 do A[x]:=3*(x-1);
4. for x:=1 to 4 do A[x]:=3*x+1;
a. A: 0, 3, 6, 9
б. A: 4, 7, 10, 13
в. A: 2, 6, 12, 20
г. A: 2, 5, 8, 1
#include <stdio.h>
using namespace std;
int main(){
int y;
cin>>y;
y=y%12;
switch (y){
case 4:{cout<<"Mouse"; break;}
case 5:{cout<<"Bull";break;}
case 6:{cout<<"Tiger";break;}
case 7:{cout<<"Rabbit";break;}
case 8:{cout<<"Dragon";break;}
case 9:{cout<<"Snake";break;}
case 10:{cout<<"Horse";break;}
case 11:{cout<<"Goat";break;}
case 0:{cout<<"Monkey";break;}
case 1:{cout<<"Cock";break;}
case 2:{cout<<"Dog";break;}
case 3:{cout<<"Pig";break;}
}
cin.get();
cin.get();
return 0;
}
Module Module1
Sub Main()
Dim n, i, s As Integer
Console.Write("Введите число N")
n = Console.ReadLine
s = 0
For i = 1 To n
s = s + i * i
Next
Console.Write(s)
n = Val(Console.ReadLine)
End Sub
End Module
2. Приложение Windows Forms:
На форме 3 объекта:
TextBox1 - для ввода N
Textbox2 - для вывода суммы квадратов
Button1 - чтобы запустить процесс вычислений
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, s As Integer
s = 0
For i = 1 To Val(TextBox1.Text)
s = s + i * i
Next
TextBox2.Text = s
End Sub
End Class