1
2
3
4
5
6
7
8
9
program Ausgeben(output);
 
var Buchstabe:char;
i:integer;
begin
for Buchstabe:='a' to 'z' do
 
 
writeln (Buchstabe);

1
2
3
4
5
6
7
8
9
program Ausgeben(output);
 
var Buchstabe:char;
i:integer;
begin
for Buchstabe:='a' to 'z' do
 
 
writeln (Buchstabe[2i]);

1
2
3
4
5
6
7
8
9
program Ausgeben(output);
 
var Buchstabe:char;
i:integer;
begin
for Buchstabe:=a to z do
 
 
writeln (Buchstabe[2i]);

1
2
3
4
5
6
7
8
program Ausgeben(output);
 
var Buchstabe:char;
i:integer;
begin
ist:=true;
for Buchstabe:=a to z do
 
 ...

1
2
3
4
5
6
7
8
9
program Ausgeben(output);
 
var i:integer;
 
begin
for i:=1 to 100 do
if i mod 2 = 0  then
 
writeln (i);

1
2
3
4
5
6
7
8
9
 
                                                                         (*O/*_/
Cu  #%* )pop mark/CuG 4 def/# 2 def%%%%@@P[TX---P\P_SXPY!Ex(mx2ex("SX!Ex4P)Ex=
CuG #%*                                                                  *+Ex=
CuG #%*------------------------------------------------------------------*+Ex=
CuG #%*   POLYGLOT - a program in eight languages      15 February 1991  *+Ex=
CuG #%*   10th Anniversary Edition                      1 December 2001  *+Ex=
CuG #%*                                                                  *+Ex=
CuG #%*   Written by Kevin Bungard, Peter Lisle, and Chris Tham          *+Ex=
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied,Faktor,wieviel');
readln(a1,q,n);
Ergebnis:=1;
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied,Faktor,wieviel');
readln(a1,q,n);
Ergebnis:=1;
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied,Faktor,wieviel');
readln(a1,q,n);
Ergebnis:=1;
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
 ...

1
2
3
4
5
6
7
8
9
program geometrischeFolge (input,output);
 {berechnet das geometrische Produkt}
var
Ergebnis,an,i,a1,q,n:integer;
 
begin
writeln('ersteGlied');
readln(a1);
writeln('Faktor');
 ...

1
2
3
4
5
6
7
8
9
var s:string;
    stack:array[0..240] of char;
    i,j,n,e:longint;
    no:boolean;
Begin
Assign(input,'input.txt');
reset(input);
Assign(output,'output.txt');
rewrite(output);
 ...

1
2
3
4
5
6
7
8
program eukolo(input,output);
 var  x, y : integer;
Begin
 readln(x);
 readln(y);
 if ((x*y) div 1000 <> 0) and ((x*y) div 10000 = 0) then writeln('yes')
  else writeln('no')
End.

1
2
3
4
5
6
7
8
program eukolo(input,output);
 var  x, y : integer;
Begin
 readln(x);
 readln(y);
 if ((x*y) div 1000 <> 0) and ((x*y) div 10000 = 0) then writeln('yes')
  else writeln('no')
End.

1
2
3
4
5
6
7
8
program eukolo(input,output);
 var  x, y : integer;
Begin
 readln(x);
 readln(y);
 if ((x*y) div 1000 <> 0) and ((x*y) div 10000 = 0) then writeln('yes')
  else writeln('no')
End.

1
2
3
4
5
6
7
8
program eukolo(input,output);
 var  x, y : integer;
Begin
 readln(x);
 readln(y);
 if ((x*y) div 1000 <> 0) and ((x*y) div 10000 = 0) then writeln('yes')
  else writeln('no')
End.

1
2
3
4
5
6
7
8
9
program eukolo(input,output);
 var  x, y : integer;
Begin
 readln(x);
 readln(y);
 writeln((x*y) mod 10
 if ((x*y) div 1000 <> 0) and ((x*y) div 10000 = 0) then writeln('yes')
  else writeln('no')
End.

1
2
3
4
5
6
7
8
9
program jhfsjk (input, output);
var a, b, c : integer;
begin
read(a, b);
readln;
c:= (a mod b);
writeln(c);
writeln(c div 1000)
end.

1
2
3
4
5
6
7
8
9
program jhfsjk (input, output);
var a, b, c : integer;
begin
read(a, b);
readln;
c:= (a mod b);
writeln(c);
writeln(c div 1000)
end.

1
2
3
4
5
6
7
8
program jhfsjk (input, output);
var a, b, c : integer;
begin
read(a, b);
readln;
c:= (a mod b);
writeln(c)
end.

1
2
3
4
5
6
7
8
program jhfsjk (input, output);
var a, b, c : integer;
begin
read(a, b);
readln;
c:= (a mod b);
writeln(c)
end.

1
2
3
4
5
6
7
8
program jhfsjk (input, output);
var a, b, c : integer;
begin
read(a, b);
readln;
c:= (a mod b);
writeln(c)
end.

1
2
3
4
5
6
7
8
program jhfsjk (input, output);
var a, b : integer;
begin
read(a, b);
readln;
c:= (a mod b);
writeln(c)
end.