ďťż

Ładny brzuch

program silnia; var s, wynik, i: integer; begin writeln('podaj silnię'); readln(s); i:=1 wynik:=1; repeat i:=i+1; wynik:=wynik*i; until s=i; write(wynik); end. no i teraz jak to przerobić, aby: jeżeli wynik wynosi 0 to ma nam wynik równy 1 . takie zadanie, mam to przerobić i coś tam złożyłem, ale chciałbym abyście mi pomogli i zobacze czy to samo. Jak tak samo to znaczy że zrobiłem dobrze :P



program progsilnia; uses crt; var silnia, i, a:integer; begin silnia:=1; a:=0; clrscr; write('Silnia z: '); readln(a); for i:=1 to a do silnia:=silnia*i; writeln(silnia); readkey; end.

nie działa coś :(

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
  •