 Wysłany: Czw 15:58, 07 Lut 2008 Temat postu: SILNIA, dzialajaca, i latwiejsza chyba;) |
|
| program silnia ;
var a , wyn, sil : integer ; begin writeln('podaj liczbe ktorej silnie mam obliczyc'); readln(sil); {wczytuje podana liczbe jako zmienna 'sil'} wyn:=1; {za zmienna wynik przypisuje liczbe 1} for a:=1 to sil do {petla zakancza sie gdy zmienna a=sil} wyn:=wyn*a; {za zmienna wyn przypisuje wyn*a} writeln(wyn); {wyswiela zmienna WYN} readln; end. program napisany (skopiowany) przez marcina niestety nie dziala. a ten dziala:D jak obliczyc silnie "recznie?" jezeli chcemy obliczyc silnie liczby 5 dzialanie wyglada tak: 1*2*3*4*5, a wiec silnia liczby 5 wynosi 120;) |
|
