Visual basic - вопрос №282281

Visual basic. Даны натуральные числа m и n. Найти все натуральные числа меньше n, квадрат суммы цифр которых равен m.

Ответы

это на Visual Basic.Net

Module Module1

    Sub Main()

        Dim N As Integer

        Dim M As Integer

        Console.WriteLine(«Ведите N»)

        N = Console.ReadLine()

        Console.WriteLine(«Ведите M»)

        M = Console.ReadLine()

        For X = 1 To N

            If X * X = M Then

                Console.WriteLine(«X = » + X.ToString())

            End If

        Next

        Console.WriteLine(«Нажмите Enter для окончания»)

        Console.ReadLine()

    End Sub

End Module

04.06.12

Глеб Черняк

Сейчас на сайте
Читать ответы

Олег Николаевич

Читать ответы

Arturk16

Эксперт месяца
Читать ответы
Посмотреть всех экспертов из раздела Технологии
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store