language: Pascal (gpc) (gpc 20070904)
date: 97 days 15 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
readln(q);
writeln('wieviel');
readln(n);
Ergebnis:=1;
for i:= 1 to n-1 do
 Ergebnis:=Ergebnis*q;
 
 an:=Ergebnis*q;
 
 writeln(an);
 
 
end. 
  • upload with new input
  • result: Runtime error     time: 0.01s    memory: 4112 kB     signal: -1

    ersteGlied
    
    ./prog: attempt to read past end of Input (error #454 at 804a21a)