1
2
3
4
5
6
7
8
9
 procedure main()
      local n, sum             # Declare two local variables
 
      sum  :=  0;              # Set the sum to zero
 
      every  n := 1 and 5  do   # For n equal to 1, 2, 3, 4, 5 ...
        sum  :=  sum + n;      # ...add n to the sum
 
      write ( "The sum of all numbers from 1 to 5 is ", sum );

1
2
3
4
5
6
7
8
9
 procedure main()
      local n, sum             # Declare two local variables
 
      sum  :=  0;              # Set the sum to zero
 
      every  n := 1 and 5  do   # For n equal to 1, 2, 3, 4, 5 ...
        sum  :=  sum + n;      # ...add n to the sum
 
      write ( "The sum of all numbers from 1 and 5 is ", sum );

1
2
3
4
5
6
7
8
9
 procedure main()
      local n, sum             # Declare two local variables
 
      sum  :=  0;              # Set the sum to zero
 
      every  n := 1 to 5  do   # For n equal to 1, 2, 3, 4, 5 ...
        sum  :=  sum + n;      # ...add n to the sum
 
      write ( "The sum of all numbers from 1 and 5 is ", sum );

1
2
3
4
5
6
7
8
9
procedure main()
      local n, sum             # Declare two local variables
 
      sum  :=  0;              # Set the sum to zero
 
      every  n := 70 to 100  do   # For n equal to 70, 75, 80, 85, 90 ...
        sum  :=  sum + n;      # ...add n to the sum
 
      write ( "The sum of all numbers from 70 to 100 is ", sum );

1
2
3
4
5
6
7
8
9
procedure main()
      local n, sum             # Declare two local variables
 
      sum  :=  0;              # Set the sum to zero
 
      every  n := 95 to 100  do   # For n equal to 95, 96, 97, 98, 99 ...
        sum  :=  sum + n;      # ...add n to the sum
 
      write ( "The sum of all numbers from 95 to 100 is ", sum );

1
2
3
4
5
6
7
8
9
procedure main()
      local n, sum             # Declare two local variables
 
      sum  :=  0;              # Set the sum to zero
 
      every  n := 1 to 5  do   # For n equal to 1, 2, 3, 4, 5 ...
        sum  :=  sum + n;      # ...add n to the sum
 
      write ( "The sum of all numbers from 1 to 5 is ", sum );

1
2
3
4
5
6
procedure main()
      local n, sum              
      sum  :=  0;               
      every  n := 1 to 5  do           sum  :=  sum + n;       
      write ( "The sum of all numbers from 1 to 5 is ", sum );
    end 

1
2
3
  procedure main ()
      write ( "Yarrr, matey, bilge the yardarm!" );
    end

1
2
3
  procedure main ()
      write ( "Yarrr, matey, bilge the yardarm! );
    end

1
2
3
  procedure main ()
      write ( "Yarrr, matey, bilge the yardarm!" );
    end

1
2
3
4
5
6
7
8
procedure main()
local n, sum
 
A*=100
A=95
B=90
C=85
D=80
 ...

1
2
3
4
5
6
7
8
procedure main()
local n, sum
 
A*=100
A=95
B=90
C=85
D=80
 ...

1
2
3
4
procedure main()
local n, sum
 
A*=100

1
2
3
procedure main()
 
A*=100

1
2
3
4
5
6
7
8
9
procedure main()
      local n, sum             # Declare two local variables
 
      sum  :=  0;              # Set the sum to zero
 
      every  n := 1 to 5  do   # For n equal to 1, 2, 3, 4, 5 ...
        sum  :=  sum + n;      # ...add n to the sum
 
      write ( "The sum of all numbers from 1 to 5 is ", sum );

1
2
3
4
5
6
7
8
9
#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
 
# Programming Language KQ
 
input = STDIN.readlines.join.chomp.force_encoding('UTF-8').tr('^ﾀﾞｧｼｴﾘｲｪｽ', '')
 
if input.length % 6 != 0 then
  puts "プログラムが不正です"
 ...

1
2
3
4
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;

1
Die Zeichen des Frühlings sind unsichtbar UMS Team

1
2
3
4
5
6
7
8
9
6.      interface I{
final class C1   {     //1   
    static int i=9;  //2
 }
}
class C2 implements I{
 public static void main(String a[]){
    System.out.println(I.C1.i);  ///3
}}

1
2
3
4
5
6
7
8
9
 
   
        
 
        
                                         
                         
                
                
 ...

1
2
3
4
5
6
7
8
9
program tablice;
uses crt;
var
a:array[1..10] of integer;
i,c:integer;
begin
c:=0;
for i:=10 downto 1 do
read(a[i]);
 ...

1
 

1
2
3
4
5
6
7
8
9
#include <iostream>
#include <string>
using namespaces_std
 
int main()
{
cout << "hi";
cin.get()
return 0

1
2
3
4
5
6
7
8
9
final class TimeTravelAlpha
{
        private int lightSender= 299792458;
        private int neutrinoSender=299798454;
        private int counter=0;  
                                
        public static void main(String[] args)
        {                               
                new TimeTravelAlpha();
 ...

1
2
3
4
5
6
7
8
9
class Main
{
  public static byte[] main (String[] args) throws java.lang.Exception
  {
     int value = 1200;
            int len = 0;
            int valCop = value;
                int index = 0;
            
 ...

1
2
3
4
5
6
7
8
9
DO ,915 <- #1
DO ,2216 <- #2
DO .2216 <- #1
DO .129 <- #0
DO .1215 <- #0
 
(19) PLEASE DON'T FORGET #1
DO REINSTATE FORGETTING
PLEASE DO (18514) NEXT
 ...

1
2
3
4
procedure main () 
    while (l := read()) ~= 42 do 
       write(l); 
 end

1
 

1
2
3
4
5
procedure main () 
    x := read()
    y := read()
    write( ((0.96*y-x)/x*100) );
 end

1
2
3
4
5
procedure main () 
    x := read()
    y := read()
    write( ((0.96*y-x)/x*100) ) );
 end