Vytvorené: 22. 10. 2013 Tlačiť
program PrvocislaOk;
var
cislo:array[1..100] of integer;
prvocislo:array[1..100] of boolean;
i,j:integer;
begin
for i:=1 to 100 do begin
cislo[i]:=i;
prvocislo[i]:=true;
end;
for i:=2 to 100 do
if prvocislo[i]=true then begin
for j:=i+1 to 100 do begin
if (cislo[j]/i)=int(cislo[j]/i) then prvocislo[j]:=false;
end;
end;
for i:=1 to 100 do begin
if (prvocislo[i]=true) then writeln (cislo[i]);
end;
readln;
end.
![]() |
· 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
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |