1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
----------------------------------------------------------------
-- Montgomery Product (Montgomery_product.adb)
-- 
-- A simple example of
-- MP(x,y) = x.y/R mod M
--
----------------------------------------------------------------
with Gnat.Io; use Gnat.Io;
procedure Montgomery_product is
 ...

1
2
3
4
5
6
7
8
9
----------------------------------------------------------------
-- Montgomery Product (Montgomery_product.adb)
-- 
-- A simple example of
-- MP(x,y) = x.y/R mod M
--
----------------------------------------------------------------
with Gnat.Io; use Gnat.Io;
procedure Montgomery_product is
 ...

1
2
3
4
5
6
7
8
9
----------------------------------------------------------------
-- Montgomery Product (Montgomery_product.adb)
-- 
-- A simple example of
-- MP(x,y) = x.y/R mod M
--
----------------------------------------------------------------
with Gnat.Io; use Gnat.Io;
procedure Montgomery_product is
 ...

1
#@~^xgMAAA==@#@&0;      mDkW    P14+13\+v0G.s#P@#@&     @#@&\m.~Ek+MPxPWGM: EknDc\Cs!+@#@&-mD~wmdkPx,0KD:cwmd/c\CV!+@#@&b0PvcEk+D,xxPr:bm.W^.mwE#,'[,`2Ck/Pxx,J8DKVxE*#@#@&dP@#@&7dmVnDD`E%kmDb2Ycwta~r/,XKE.P.C       3;wrbi@#@&7N@#@&+sd@#@&dP@#@&dC^+MY`r?K.DHR~KMX~CTlk   ZJ*i@#@&7.+DEMx~0Csk+I@#@&78@#@&N@#@&0EU^DkGx,[b/C(VIkTtD/VbmV`#@#@&P@#@&,~\mDPsnd/moPxPE]bo4Y,^VbmV~9k/C8^+[Jp@#@&P~@#@&,Pk6`e[W1Eh+        Y .botD/Vbm3Grdl(VNbP&&,kUkDrl^k"n@#@&P~`@#@&~P,~b0c9W1E:xD VmXnDk#~@#@&PP,~  @#@&P,~~P,NKm;:nUDR^laOEM+3-xYdcA\nxD triU2Grg#p@#@&,P~P,P[G1E:UYcWxsG;/NKhUPx~9kdl(s+"kL4DZVr^0i@#@&,~,PN@#@&,PP,+^d+,NGm!:nUDRW   ^W      Y+XOh+  E,'~Nrdm4s+"ro4Y/sbm3I@#@&P~P,.Y;Mx,NW1EsnxDR.kTtO/^km09kkl4^n[P{PDD;+I@#@&P~8@#@&P,kWc9Wm;hxOR^CH+.kP-uPvNK^Es+UYconOAV+snxDAX&[~[LPeNGm;hxORmsV*#@#@&,P    @#@&,P~PbW,`nch4km4'{+u-+ h4k^4{'&*@#@&,PP,`@#@&,P,P~PCsDO`sn/klLn*i@#@&~,P~P,.Y;Mx,0l^/I@#@&P~P,8@#@&,P8@#@&P,+Vkn@#@&,PP@#@&P~~,ls+MO`s+ddmo+bI@#@&~P,~M+O!D       P0mVkni@#@&~P)@#@&N@#@&Nbdl(V+"rLtDZ^k^3cbp@#@&HAwBAA==^#~@

1
2
3
4
5
6
7
8
9
def And(Now):
    For = list(Now)
    # Something
    Completely = len(Now)
    for Different in range(0, Completely, 2):
        if Completely > Different + 1:
            For[Different], For[Different+1] = For[Different + 1], For[Different]
    return ''.join(For)
print(And('oNobyde pxcestt ehS apinhsp dwI:qniuisitno'))

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Calendar;
use Ada.Text_IO, Calendar;
 
procedure ifElseIndecision is
       DAUGHTER        : INTEGER       := 1;
       type COMPLICATED is (CLEAR_DAYS, COLD_SHOULDERS, CHIMES);
       FAMILY          : COMPLICATED;
       NOW             : INTEGER;
       FUTURE          : INTEGER       := 1E+9;
 ...

1
2
3
4
5
6
7
8
9
#include <stdio.h>
#include <stdlib.h>
 
void shiftLeft(char * st){
        char * c;
        while(*st){
                //printf("%s\n",st);
                fflush(stdout);
                c = st +1;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
Options +FollowSymlinks
RewriteEngine on
RewriteRule ^cac40.png$ cac40.php

1
2
3
4
5
Options +FollowSymlinks
RewriteEngine on
RewriteRule cac40.png$ cac40.php
RewriteRule or.png$ or.php
; etc

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
f~^kn~+c+ia~^+~cf+?/                        
                   [f!c-ki~:~b/au>++*+k~~r~bn!*+i                   
                <kk]k/>rkbrn~!:?[->+uc*a+af~>^b+ub+k                
              +i?:fn>+b+kb^+>kn?+ii/kb++u>?a+^+?+u>u?c+             
            i:+~/+>++:kba+~b?+:>+rr!b+k+++u?n<k!b**<i<c~i           
          <!^<<<<krb~^/]>>-u~/*-:<ck^<++!!:n+!kcbinc[~kr-:          
         *k:!kb?>c~>>*u!nnrbabi>+irn>i?+~+?>icc*+ci+i+!<<rb         
        ^knnb<!<!i<b^r<i!^/]>f/>>a/?>i~>~>>>b--.r/rucffa!/<n        
        <:u<?ua<cr<*:<i:bb<fu/nb.>b:r:*?**>n:!>::~/*+.>>r-:.:       
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO;
use Ada.Text_IO;
 
procedure ALP is
type TRecord is record
X, Y, Z : Integer ;
end record;
type TArray is array (1 .. 2) of TRecord;
Z : TArray;
 ...

1
2
3
4
5
6
7
8
9
A proven track record   
being one step ahead of the competition
clear brand identity
competitive prices
customer relationship management
good value for money
market research
a tender        a formal written offer to do a job for an agreed        price
procurement     the obtaining of supplies or services
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int mcd(int a, int b) {
    if (b==0) return a;
    else return mcd(b, a % b);
}
 
int main(){
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
using namespace std;
 
int bin(int a){
    return bin(a%2);
    a /= 2;
}
 
int main(){
 ...

1
2
3
4
5
6
7
8
9
with Ada.Integer_Text_Io, Ada.Text_Io;
use Ada.Integer_Text_Io, Ada.Text_Io;
 
procedure Test is
   subtype Small is Integer range 0..99;
   Input : Small;
begin
   loop
      Get(Input);
 ...

1
2
3
4
5
6
7
8
9
--------------------------------------------------------------------------------------------------------
-- Program wykonuje operacje na punktach w kartezjanskim ukladzie wspolrzednych.
--
-- Autor      : Przemyslaw Furmanczyk, Patryk Szadkowski
-- Gr. lab.   : 3
--
-- Opis: Napisac program, ktory zawiera reprezentacje punktu na plaszczyznie
-- w postaci rekordu o dwoch skladowych zmiennoprzecinkowych: X i Y.
-- Zalozmy istnienie pliku z danymi punktow, w ktorym kazda linia
 ...

1
printf("%s,", (/82697165826883/ =~ /((\d{2}))/).collect {(char) it[0].toInteger()}.join())

1
2
3
4
5
6
7
8
9
#include <iostream.h>
 
struct st
{
     int id;              //id
         char f[11];          //familya
     char i[11];     //imya
         char o[12];     //otchestvo
     char g[10];     //gruppa
 ...

1
2
3
4
5
6
7
8
9
#include <stdio.h>
#include <iostream.h>
 
struct st
{
     int id;              //id
     char f[11];          //familya
     char i[11];     //imya
     char o[12];     //otchestvo
 ...

1
2
3
4
5
6
7
8
9
#include <stdio.h>
#include <iostream>
 
struct st
{
     int id;              //id
     char f[11];          //familya
     char i[11];     //imya
     char o[12];     //otchestvo
 ...

1
2
3
4
5
6
7
8
9
#include <stdio>
#include <iostream>
 
struct st
{
     int id;              //id
     char f[11];          //familya
     char i[11];     //imya
     char o[12];     //otchestvo
 ...

1
2
3
4
5
6
7
8
9
#include <iostream.h>
 
struct st
{
     int id;              //id
     char f[11];          //familya
     char i[11];     //imya
     char o[12];     //otchestvo
     char g[10];     //gruppa
 ...

1
2
3
4
5
6
7
8
9
#include <iostream>
 
struct st
{
     int id;              //id
     char f[11];          //familya
     char i[11];     //imya
     char o[12];     //otchestvo
     char g[10];     //gruppa
 ...