Vytvorené: 29. 10. 2013 Tlačiť
program MocninyOk;
var
i,x2,x3:integer;
begin
for i:=1 to 10 do begin
x2:=i*i;
x3:=i*i*i;
writeln (i,' ',x2,' ',x3);
end;
readln;
end.
program MocninaOk;
var
x,n,i,vysledok:integer;
begin
writeln ('Zadajte x,n');
readln (x,n);
vysledok:= 1;
for i:=1 to n do begin
vysledok:=x*vysledok;
end;
write (x,' na ',n);
writeln (' = ',vysledok);
readln;
end.
program mocninapomocourekurzieOk;
var
c,d,vysledok:integer;
function Moc(a,n:integer): integer;
begin
if n=0 then Moc:=1
else Moc:=a*Moc(a,n-1);
end;
begin
writeln('Zadaj A,N a ja vypocitam N-tu mocninu cisla A.');
readln(c,d);
vysledok:=Moc(c,d);
writeln(vysledok);;
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 |