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).
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var cislo,n,i:integer;
begin
write('Zadejte pocet cisel: ');
readln(n);
for i:=1 to n do
begin
write('Zadejte ',i,'.cislo: ');
readln(cislo);
if (cislo mod 3=0) or (cislo mod 5=0) then
writeln(' Cislo je delitelne 3 nebo 5.');
end;
readln;
end.
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.