Napisz algorytm do zagadywania licz. Zadając pytania(np. czy licza jest parzysta?) udzielając odpowiedzi tak albo nie. Zakres licz od 1 do 10 000
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Sub Main()
Randomize()
Dim liczbalosowa As Single = Int(Rnd() * 10000) + 1
Dim liczbauzytkownika As Single
Console.WriteLine("program zaduj-zgadula, musisz zgadnac liczbe z przedziału od 1 do 100")
Do
Console.Write("podaj liczbę : ")
liczbauzytkownika = CSng(Console.ReadLine)
If liczbalosowa > liczbauzytkownika Then Console.WriteLine("za mało")
If liczbalosowa < liczbauzytkownika Then Console.WriteLine("za dużo")
Loop Until liczbalosowa = liczbauzytkownika
Console.WriteLine("zgadłeś :) ")
Console.ReadKey()
End Sub
End Module