Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.13 Dělitelnost čísla

MENU

04.13 Dělitelnost čísla

Zadání:
Sestavte program, který určí, kterými čísly z intervalu 2..9 je beze zbytku dělitelné zadané číslo.
Řešení:
Zadání vyřešíme použitím cyklu FOR. Nejprve načteme hodnotu čísla a poté pomocí cyklu FOR vydělíme zadané
číslo všemi čísly z intervalu 2..9. Pokud při některém z dělení nastane nulový zbytek, dělitele vytiskneme.
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cislo,i:integer;

begin

   writeln('Zadejte cislo: ');
   readln(cislo);

   writeln('Zadane cislo je delitelne temito cisly z intervalu 2..9: ');

   for i:=2 to 9 do
      if cislo mod i=0 then write(i:3);

   readln;

end.
program ke stažení
Pro studenty:
Funkce mod vrací zbytek po celočíselném dělení.