Rozhodne, zda je číslo násobkem sedmi

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pavel Paták
web: www.webpark.cz/programar

Program: Nasobek7.pas
File exe: Nasobek7.exe

Rozhodne, zda je číslo násobkem sedmi.
{ NASOBEK7.PAS                            Copyright (c) Pavel Patak }
{ Rozhodne, zda je cislo nasobkem sedmi.                            }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program NasobekSedmi;
Var A : Integer;
Begin
 Writeln('Zadej cele cislo : ');
 Readln(A);
 if A mod 7 = 0 then Writeln('Toto cislo je nasobkem sedmi.')
  else Writeln('Sedmicka toto cislo nedeli.');
 Readln;
End.