Το Στέκι των Πληροφορικών

Να γράψετε  πρόγραμμα που να υπολογίζει το γινόμενο όλων των περιττών αριθμών  από το 1 έως το 20
Είναι σωστό;


Program Peritoi;
var i,a :integer;
Begin
i:=1;
a:=i;
   While i<20 do
   begin
      a:=a*i;
      write(a,' ');
      i:=i+2;
   end;
end.   

Το έχεις δοκιμάσει σε κάποιον compiler ή έστω έχεις εκτελέσει τις εντολές με μολύβι και χαρτί;

to ekana run me to Pame ala dn m fenontai swsta ta apotelesmata

(ας μη γράφουμε με greeklish)

Τι αποτελέσματα σου εμφανίζει;

(Η νύστα έφταιγε  )

Μου εμφανίζει θετικά αποτελέσματα και το τέταρτο είναι αρνητικό
και ειδικά για πολλαπλασιασμό είναι παράξενο νομίζω

To 4ο ή το 13ο...; Αν είναι εύκολο γράψε ακριβώς τι σου εμφανίζει...

Παράθεση από: Κώστας.Γ στις 05 Μαρ 2013, 03:44:16 ΜΜ
Να γράψετε  πρόγραμμα που να υπολογίζει το γινόμενο όλων των περιττών αριθμών  από το 1 έως το 20
Είναι σωστό;


Program Peritoi;
var i,a :integer;

Άλλαξέ το σε longint και είσαι τζιτζί.
Ο τύπος integer δε "φτάνει".