Vytvorené: 18. 05. 2014 Tlačiť
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.
![]() |
· 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 |