Matematické Fórum

↑ myrek:
Heh...to je jako vtip? Zkoušel sis ten program?
Mi přijde, že buď nevíš co to je prvočíslo nebo ste prostě dostali nějaký úkoly a ty sem postupně hrneš jeden za druhym a čekáš až ti to někdo naprogramuje...

↑ xxsawer:↑ Honza Matika:
jeste sem zkousel tohle a protoze me to ukazovalo spatne pro dvojku a trojku tak sem tam dal prvni dve if ale i kdyz me to jede tak mi to vyhodnotilo uspesnost 50 procent tak nevim

program prvociselnost;
var a,b,c:integer;d:boolean;
begin
read(a);
if a=2 then d:=true
else
if a=3 then d:=true
else
        begin
        b:=3;
        c:=trunc(sqrt(a))+1;
         if (a div 2)*2=a then d:=false
         else
                begin
                while b<= c do
                        begin
                        if (a div b)*b=a then d:=false
                        else
                        d:=true;
                        b:=b+2;
                        end;
                end;
        end;
if pravda=true then writeln('ano')
else writeln('ne');
end.