04.10 Hledání čísel dělitelných 3 nebo 5
Zadání:
Sestavte program, který určí počet čísel ze zadané řady čísel, jejichž hodnota je beze zbytku dělitelná číslem 3 nebo 5.
Sestavte program, který určí počet čísel ze zadané řady čísel, jejichž hodnota je beze zbytku dělitelná číslem 3 nebo 5.
Řešení:
Zadání vyřešíme použitím cyklu FOR. Nejprve načteme do proměnné n celkový počet zadávaných čísel v řadě. Poté
pomocí cyklu FOR načteme všechna čísla a každé z nich zkontrolujeme, zda je jeho hodnota dělitelná 3 nebo 5 beze zbytku.
Pokud ano, zvýšíme hodnotu proměnné pocet o 1 (jedna).
Zadání vyřešíme použitím cyklu FOR. Nejprve načteme do proměnné n celkový počet zadávaných čísel v řadě. Poté
pomocí cyklu FOR načteme všechna čísla a každé z nich zkontrolujeme, zda je jeho hodnota dělitelná 3 nebo 5 beze zbytku.
Pokud ano, zvýšíme hodnotu proměnné pocet o 1 (jedna).
Module Module1
Sub Main()
Dim cislo, n, i As Integer
Console.Write("Zadejte pocet cisel: ")
n = Console.ReadLine
For i = 1 To n
Console.Write("Zadejte {0}.cislo: ", i)
cislo = Console.ReadLine
If cislo Mod 3 = 0 Or cislo Mod 5 = 0 Then
Console.WriteLine("Cislo je delitelne 3 nebo 5.")
End If
Next i
Console.ReadLine()
End Sub
End Module
program ke stažení
Pro studenty:
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnné pocet MUSÍTE vložit hodnotu 0 (nula), jinak by program dosadil své počáteční hodnoty.
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnné pocet MUSÍTE vložit hodnotu 0 (nula), jinak by program dosadil své počáteční hodnoty.