Онлайн компилятор языка "О"

Примеры программ

MODULE First;
IMPORT In, Out;
VAR
   X : INTEGER;
BEGIN
   In.Open;
   In.Int(X);
   X := X * 2;
   Out.Int(X, 0);
   Out.Ln;
END First.

Наибольший общий делитель

MODULE Euqlid;
IMPORT In, Out;
VAR
   X, Y : INTEGER;
BEGIN
   In.Open;
   In.Int(X);
   In.Int(Y);
   WHILE X # Y DO
      IF X > Y THEN
         X := X - Y
      ELSE
         Y := Y - X
      END;
   END;
   Out.Int(X, 0);
   Out.Ln;
END Euqlid.

Простые числа

MODULE Easy;
(* Простые числа от 2 до n *)
IMPORT In, Out;
VAR
n, c, i, d : INTEGER;
BEGIN
   In.Open;
   In.Int(n);
   c := 0; (* Cчётчик простых *)
   i := 2;
   WHILE i<= n DO
   (* Делим на 2, 3, ... пока не разделится *)
      d := 2;
      WHILE i MOD d # 0 DO
         INC(d);
      END;
      IF d=i THEN (* i - простое *)
         INC(c);
         Out.Int(i, 8);
         IF c MOD 5 = 0 THEN
            Out.Ln;
         END;
      END;
      INC(i);
   END;
   Out.Ln;
   Out.Int( c, 0 );
END Easy.

Примеры программ

Простая программа

Наибольший общий делитель

Простые числа