SUDOKU

Przewiń wpisy ↓	SUDOKU
2026-08-09 (22:28) Lottonauta Data rejestracji: 2012-09-03 Ilość postów: 3812	wpis nr 1 625 587 [ CZCIONKA MONOSPACE ] super --- wpis edytowano 2026-08-09 22:28 ---
2026-08-10 (10:22) 777ch Data rejestracji: 2005-11-07 Ilość postów: 23089	wpis nr 1 625 613 [ CZCIONKA MONOSPACE ] Sub AlgorytmEuklidesa() Dim a As Integer, b As Integer, reszta As Integer ' Pobierz liczby od użytkownika a = InputBox("Podaj pierwszą liczbę (a):") b = InputBox("Podaj drugą liczbę (b):") 'Zapisz liczby do wyświetlenia na końcu Dim orgA As Integer, orgB As Integer orgA = a: orgB = b ' Główna pętla algorytmu z resztą z dzielenia (modulo) Do While b <> 0 reszta = a Mod b a = b b = reszta Loop ' Wyświetl wynik MsgBox "NWD liczb " & orgA & " i " & orgB & " to: " & a End Sub
2026-08-10 (16:13) Lottonauta Data rejestracji: 2012-09-03 Ilość postów: 3812	wpis nr 1 625 633 [ CZCIONKA MONOSPACE ] https://rosettacode.org/wiki/Greatest_common_divisor#BASIC


\| Dodaj wpis w tym temacie \| Spis tematów \| Wyniki lotto	Strona: 1 2 ... 9 10 Wyślij wiadomość do admina Czcionka o stałej szerokości