[inne]Pascal PROBLEM, Obliczanie Średniej Opcje

[KrzysiekKCN]

Witam, mam na jutro zadanie na programowanie napisać program obliczający silnię i męczę to już od godziny i nic... Gdzie robię błąd? Nic nigdzie nie widzę, skończyły mi się pomysły.. Mogli byście mi pomóc?

[XML] pobierz, plaintext 
------------------
ten kod już naprawiłem i działa
------------------
program trzy;
uses crt;
var
n,s,p : integer;
begin
clrscr;
writeln ('Silnia według schematu blokowego');
writeln ('Podaj Liczbe N');
read(n);
if (n=0) then writeln ('Silnia wynosi:1') else write('Silnia Wynosi:',(n-1)*n);
 
repeat until keypressed;
end.
[XML] pobierz, plaintext 

ale teraz jak napisać silnię?

Ten post edytował KrzysiekKCN 6.10.2009, 15:12:59