Program zistí najvačší štvorciferný deliteľ čísla
Delphi & Pascal (česká wiki)
Kategorija: KMP (Programy mladňakoch
Program: Cifry.pas
Subor exe: Cifry.exe
Program: Cifry.pas
Subor exe: Cifry.exe
Program zistí najvačší štvorciferný deliteľ čísla.
{ CIFRY.PAS } { Program zisti najvacsi stvorciferny delitel cisla. } { } { Datum:26.11.2011 http://www.trsek.com } program Cifry; uses crt; var I:integer; X:integer; begin writeln('Zadaj cislo'); readln(I); X:=(10000); repeat X:=X-1; until X mod I = 0; writeln('Najvacsi stvorciferny delitel cisla ', I, ' je ',X); readln; end.