Question

Срочно!!!!!!!!!! написать в Visual BasicСамостоятельно написать программу, которая определяет - делится ли без остатка трехзначное натуральное число на произведение своих цифр. ​

Answer 1

Ответ:

program 1;

a:integer;

Begin

write ('a= ');

readln (a);

if (a mod 3=0) then

writeln ('да делится) ;

else

writeln('не делится');

readln;

end.

Answer 2

Для решения этой задачи вам потребуется написать программу на Visual Basic, которая будет принимать на вход трехзначное натуральное число, а затем определять, делится ли оно на произведение своих цифр без остатка.

Вот пример решения этой задачи на Visual Basic:

Module Module1
    Sub Main()
        Dim number As Integer
        Console.WriteLine("Введите трехзначное натуральное число:")
        number = Convert.ToInt32(Console.ReadLine())

Dim digit1 As Integer = number \ 100
        Dim digit2 As Integer = (number \ 10) Mod 10
        Dim digit3 As Integer = number Mod 10
        Dim product As Integer = digit1 * digit2 * digit3

If number Mod product = 0 Then
            Console.WriteLine("Число " & number & " делится на произведение своих цифр без остатка.")
        Else
            Console.WriteLine("Число " & number & " не делится на произведение своих цифр без остатка.")
        End If
    End Sub
End Module

Эта программа сначала запрашивает у пользователя трехзначное натуральное число, затем разбивает его на отдельные цифры, вычисляет произведение этих цифр и проверяет, делится ли исходное число на это произведение без остатка. Результат выводится на экран.

Это пример решения задачи на Visual Basic. Вы можете использовать его в своих целях или адаптировать под свои потребности.