Написать программу, которая принимает от пользователя некоторое число. Оно должно повторяться в виде цикла неопределенного долго, пока пользователь не ведет задуманное программистом число. Заранее

Dim i as Intereg=15 'Правильное число

Do  

j=InbutBox("Введите правильное число")

Loop Until j=i

Объяснение:

надо налить половину пятилитрового бидона= 2,5 л и еще налить половину трехлитрового бидона = 1,5 л. (2,5+1,5=4л). в большом восьмилитровом бидоне останется  как раз 4 литра.  а 1,5 литра из трехлитрового бидона перелить в пятилитровый и в нем тоже будет 4 л.

ответ: 6 бит