Vytvorené: 18. 05. 2014 Tlačiť

Program napísaný v jazyku Pascal.

program prvocinitele_a_prvocisla;

var
dokolko,pom,i,j:integer;
zvysok:real;

begin
dokolko:=100;
for i:=2 to dokolko do
begin
write(i,'=');
pom:=i;
j:=1;
repeat
j:=j+1;
zvysok:=pom/j;
if zvysok = int(zvysok) then
begin
if i=j then write ('prvocislo.') else
begin
write(j);
if zvysok<>1 then write ('*')
end;
pom:=round(zvysok);
j:=1;
end;
until zvysok=1;
writeln;
end;

readln;
end.

Hodnotenie užitočnosti článku:


    Umela inteligencia Novy narodopis Teoria poezie 3D-tlac Arduino Nove rekordy Prudove chranice Robotika Priemysel 4.0 Dejiny Slovenska do roku 1945 ang_znacky_fluidsim LOGOSoftComfort Novinky Historia elektromobilov Free e-kurzy Elektrina pre ZŠ Druhá svetová vojna Cvičebnice O troch pilieroch EP je spat Prehlad Fyzika Prehlad Informatika Ako sa učiť a ako učiť Dejiny sveta

     

    · Simulácie z fyziky 
    · O Slovensku po slovensky 
    · Slovenské kroje
    · Kurz národopisu
    · Diela maliarov
    · Kontrolné otázky, Domáce úlohy, E-testy - Priemysel
    · Odborné obrázkové slovníky
    · Poradňa žiadaného učiteľa
    · Rýchlokurz Angličtiny
    . Rozprávky (v mp3)
    · PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)
    Seriály:
    · História sveta (1÷6)
    · História Slovenska (1÷5)
    · História módy (1÷5).

                                       
    Členstvo na portáli
    Mám účet a chcem sa prihlásiť Prihlásiť sa
    Nemám účet, ale chcel by som ho získať Registrovať sa
    Poznámka pre autora

    Ak ste na stránke našli chybu, dajte nám vedieť


    Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady