Ĺ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
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ś :(