04.14 Nalezení čísla vyhovující podmínkám
Zadání:
Sestavte program, který nalezne přirozené číslo menší nez 500 dělitelné 7, které má po vydělení čísly 2,3,4,5,6 vždy zbytek 1.
Sestavte program, který nalezne přirozené číslo menší nez 500 dělitelné 7, které má po vydělení čísly 2,3,4,5,6 vždy zbytek 1.
Řešení:
Zadání vyřešíme použitím cyklu FOR. Pomocí něj postupně otestujeme všechna čísla z intervalu 1..500 na zadané
podmínky, pokud jim bude vyhovovat, číslo vytiskneme.
Zadání vyřešíme použitím cyklu FOR. Pomocí něj postupně otestujeme všechna čísla z intervalu 1..500 na zadané
podmínky, pokud jim bude vyhovovat, číslo vytiskneme.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var cislo:integer;
begin
for cislo:=1 to 500 do
if (cislo mod 7=0) and
(cislo mod 2=1) and
(cislo mod 3=1) and
(cislo mod 4=1) and
(cislo mod 5=1) and
(cislo mod 6=1) then writeln('Hledane cislo: ',cislo);
readln;
end.
program ke stažení
Pro studenty:
Funkce mod vrací zbytek po celočíselném dělení.
Funkce mod vrací zbytek po celočíselném dělení.