04.09 Hledání čísel dělitelných 6
Zadání:
Sestavte program, který určí počet čísel ze zadané řady čísel, jejichž hodnota je beze zbytku dělitelná číslem 6.
Sestavte program, který určí počet čísel ze zadané řady čísel, jejichž hodnota je beze zbytku dělitelná číslem 6.
Ř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á 6 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á 6 beze zbytku.
Pokud ano, zvýšíme hodnotu proměnné pocet o 1 (jedna).
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var cislo,n,i,pocet:integer;
begin
write('Zadejte pocet cisel:');
readln(n);
pocet:=0;
for i:=1 to n do
begin
write('Zadejte ',i,'.cislo: ');
readln(cislo);
if cislo mod 6=0 then pocet:=pocet+1;
end;
write('Pocet cissel=',pocet);
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.