language: Pascal (gpc) (gpc 20070904)
date: 97 days 14 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*a1;
 
 writeln(an);
 
 
end.