Школа для программистов Макаренко М. Д

13.Плюсик

1. 
   Загадать случайное число
   
2. 
   Наше исходное число =1
   
3. 
   Попросить ввести операцию: + или *
   
4. 
   Если + то прибавить к нашему числу 1, а если * - *2
   
5. 
   Показать как изменилось число
   
6. 
   Повторить с пункта 3, пока наше число не будет равно или не станет больше загаданного
   
7. 
   Если наше число равно загаданному, то мы выиграли
   
8. 
   Если наше число больше загаданного, то мы проиграли
   

• 
  Ввести два числа. Найти наибольший общий делитель.
  
• 
  Ввести число. Представить в виде произведения простых множителей.
  

14.Кролики (Числа Фибоначи)

• 
  Напечатать ряд фибоначи графически)
  

• 
  Голодная зима: Суточный рацион коровы составляет w кг сена, v кг силоса и u кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось s кг сена, t кг силоса, f кг комбикорма. В стаде ежедневно погибает p% коров, ежедневно q% сена сгнивает, r% силоса разворовывается колхозниками, t% комбикорма распродает зав фермой. Когда нельзя будет кормить коров по полному рациону? Какой из видов кормов кончится раньше.
  
• 
  У гусей и кроликов задано число лап, сколько было гусей и кроликов, распечатать все варианты
  

15.Конец света или спасение души

• 
  Является ли число простым (простое число делиться только на 1 и само себя).
  
• 
  Определить сколько простых чисел до заданного числа
  
  Построить график изменения количества простых чисел
  
  
  

16.НОД и НОК

Проверка сложения дробей

Ищем число, на которое делятся оба заданных числа. Обозначим его х. Но тогда а – в тоже делиться на х. Пусть а=32, а в = 15. Тогда разность 21


а	B
36	15




Dim a As Integer, b As Integer

Private Sub Form_Activate()

a = InputBox("1")

b = InputBox("2")

c = a

While c <> 0

c = a Mod b

a = b

b = c

Print a, b

Wend

Print b

End Sub

• 
  взаимно простые числа (числа, наибольший общий делитель которых =1)