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
1. Если число в двоичной системе заканчивается на 00, значит оно кратно 4-м в десятичной системе. То есть нужно определить, сколько существует двузначных чисел, которые в квадрате кратны 4-м.10*10 Квадрат числа будет кратен четырем в том случае, если это число чётное, то есть ответом будет кол-во четных двузначных чисел, а это 45.
2. 3 бита это 2^3 = 1 из 8 вариантов. Значит четверки - это 1/8 от всех оценок, 64/8=8 четверок
3. Всего существует 5 четных цифр (включая 0). Из них можно составить 5^4 = 625 различных четырёхзначных комбинаций.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку