Задача 64682 Чтобы научить брата считать, Никита...

621a3f7e52603b33d7e2e5ba

19.05.2022 18:21:23

Чтобы научить брата считать, Никита играет с ним игру, напоминающую «Съедобное — несъедобное». Игра называется «Делится — не делится».

Никита диктует брату два числа. Если первое число делится на второе нацело, брат ему отвечает «Делится» и называет частное, а если не делится, то отвечает «Не делится» и называет частное и остаток от деления.

Напиши программу, которая как быдто записывает всё за братом Никиты: принимает по очереди два числа и либо выводит строку «Делится», а затем в новой строке «Частное: (значение)», либо «Не делится», а затем в новой строке «Частное: (значение), остаток: (значение)».

626fab9a354ab65fb2f43abb

19.05.2022 19:54:44

★

На Quick Basic:
Sub Delitsa
Dim N1 As Integer, N2 As Integer, Ch As Integer, Ost As Integer
N1 = Input "Введите 1 число"
N2 = Input "Введите 2 число"
Ch = Int(N1 / N2) ' Целая часть частного от деления
Ost = N1 Mod N2 ' Остаток от деления N1 на N2
If Ost = 0 Then
Print "Делится"
Print "Частное: " & Ch
Else
Print "Не делится"
Print "Частное: " & Ch & ", остаток: " & Ost
End If
End Sub