тут я попытаюсь оттестировать вставку программного кода в сообщения на нашем сайте
<span>Module</span> <span>Module1</span> <span>Sub</span> Main() <span>Dim</span> N <span>As</span> <span>Integer</span> <span>Dim</span> M <span>As</span> <span>Integer</span> <span>Console</span>.WriteLine(<span>"Ведите N"</span>) N = <span>Console</span>.ReadLine() <span>Console</span>.WriteLine(<span>"Ведите M"</span>) M = <span>Console</span>.ReadLine() <span>For</span> X = 1 <span>To</span> N <span>If</span> X * X = M <span>Then</span> <span>Console</span>.WriteLine(<span>"X = "</span> + X.ToString()) <span>End</span> <span>If</span> <span>Next</span> <span>Console</span>.WriteLine(<span>"Нажмите Enter для окончания"</span>) <span>Console</span>.ReadLine() <span>End</span> <span>Sub</span> <span>End</span> <span>Module</span>Дополнение автора от июнь 4, 2012 г., 19:24:20
как видите пока не очень ))))))
Дополнение автора от июнь 4, 2012 г., 19:26:05
следующая попытка
Module Module1<br /><br /> Sub Main()<br /> Dim N As Integer<br /> Dim M As Integer<br /> Console.WriteLine("Ведите N")<br /> N = Console.ReadLine()<br /> Console.WriteLine("Ведите M")<br /> M = Console.ReadLine()<br /> For X = 1 To N<br /> If X * X = M Then<br /> Console.WriteLine("X = " + X.ToString())<br /> End If<br /> Next<br /> Console.WriteLine("Нажмите Enter для окончания")<br /> Console.ReadLine()<br /> End Sub<br /><br />End Module
Для того, чтобы оставить комментарий, войдите или зарегистрируйтесь.