Napisz program do obliczania silni dowolnej liczby wpisaną przez użytkownika .. Pomocy !!
Program silnia;Uses Crt;var liczba:byte;Function silnia(n: integer): Longint;BeginIf n = 0 Then silnia :=1Elsesilnia :=n * silnia(n - 1);End;BeginClrScr;Writeln('Podaj liczbe z korej obliczyc silnie :');
readln(liczba);Writeln('Silnia z liczby ',liczba,' wynosi :',silnia(liczba));Writeln('Aby zakonczyc wcisnij ENTER');Readln;End.
Program działa tylko do liczby 12, ponieważ dalsze liczby daja zbyt wysokie wyniki :)
Licze na Naj :)
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Program silnia;
Uses Crt;
var liczba:byte;
Function silnia(n: integer): Longint;
Begin
If n = 0 Then silnia :=1
Else
silnia :=n * silnia(n - 1);
End;
Begin
ClrScr;
Writeln('Podaj liczbe z korej obliczyc silnie :');
readln(liczba);
Writeln('Silnia z liczby ',liczba,' wynosi :',silnia(liczba));
Writeln('Aby zakonczyc wcisnij ENTER');
Readln;
End.
Program działa tylko do liczby 12, ponieważ dalsze liczby daja zbyt wysokie wyniki :)
Licze na Naj :)