1
2
3
4
5
6
7
#include iostream
 
int main()
{
  std::cout<<"Hdfhfdhdhg"<<std::endl;
  return 0;
}

1
2
3
4
5
6
7
#include iostream
 
int main()
{
  std::cout<<"Hdfhfdhdhg"<<std::endl;
  return EXIT_SUCCESS;
}

1
2
3
4
5
6
7
#include iostream;
 
int main()
{
  std::cout<<"Hdfhfdhdhg"<<std::endl;
  return EXIT_SUCCESS;
}

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.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.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
with Ada.Text_IO; use Ada.Text_IO;
procedure Hello is
begin
  Put_Line("Hello, world!");
end Hello;

1
2
3
4
5
with Ada.Text_IO; use Ada.Text_IO;
procedure Hello is
begin
  Put_Line("Hello, world!");
end Hello;

1
2
3
4
5
With Ada.text_io; use Ada.text_io;
procedure Main is
begin
   Put_Line ("hi");
end Main;

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Calendar;
use Ada.Text_IO, Calendar;
 
package body Random is
 
X_initial : FLOAT_ITEM := 0.0;
M         : FLOAT_ITEM := 1.0;
A         : FLOAT_ITEM := 7.0;
C         : FLOAT_ITEM := 13.0 / 31.0;
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Random;
use Ada.Text_IO;
 
procedure TestRan is
 
   package My_Random is new Random(FLOAT);
   use My_Random;
 
   package Int_IO is new Ada.Text_IO.Integer_IO(INTEGER);
 ...

1
2
3
4
5
6
7
8
9
with Ada.Text_IO, Calendar;
use Ada.Text_IO, Calendar;
 
package body Random is
 
X_initial : FLOAT_ITEM := 0.0;
M         : FLOAT_ITEM := 1.0;
A         : FLOAT_ITEM := 7.0;
C         : FLOAT_ITEM := 13.0 / 31.0;
 ...

1
2
xb1lIHRvIG5lYnlsbyB0xJvFvmvDqT8gSmVuIHBybyDDunBsbm9zdCBwcm8gbm9ybcOhbG7DrSAo dGVkeSBuZXBvxI3DrXRhxI1vdsO9KSAgbGlkIC0gcHJvxI0gUG/FoXRvdm7DrT8gIEvDs2QgQmFz ZTY0LCBrdGVyw71tIGplIHRlbmhsZSB0ZXh0IHpha8OzZG92w6FuLCBwb3XFvsOtdsOhdGUgbWou ICAoYW5pxb4gdG8gdMWZZWJhIHbDrXRlKSB2ZSB2xaFlY2ggdmHFoWljaCBlbWFpbG92w71jaCB6 cHLDoXbDoWNoIGsgdG9tdSwgYWJ5IHNlIGsgdsOhbSBuZWJvIG9kIHbDoXMgZG9ixZllIHDFmWVu ZXNseSB2xaFlY2hueSBWYcWhZSBmb3RreSwgdmlkZWEsIHRleHR5IHMgxI1lc2tvdSBkaWFrcml0 aWtvdSBhIGppbsOpIHZ5Y2h5dMOhdmt5IChvYmVjbsOhIGJpbsOhcm7DrSBkYXRhIHNlIGvDs2R1 asOtIHBvIDYgYml0ZWNoIGRvIHRpc2tudXRlbG7DvWNoIDY0IHpuYWvFrywga3RlcsOpIGpzb3Ug cMWZZW5vc2l0ZWxuw6EgcG/FoXRvdm7DrW0gIE1JTUUgcHJvdG9rb2xlbSkuIFRha8W+ZSAgdGFr LiANCkEgdSBmaW7DoWxreSBzaSBtxa/FvmV0ZSB2enBvbWVub3V0LCBrZHkganN0ZSBuYXBvc2xl ZHkgcG9zbGFsaSB2bGFzdG5vcnXEjW7EmyBuYXBzYW7DvSBkb3BpcyDigJ5ub3Jtw6FsbsOt4oCc ICBwb8WhdG91IGEgdMWZZWJhIHRvIHBhayBuYXBzYXQgZG8gbG9ndS4gUMWZw61wYWRuxJsgbsSb Y28gb2QgZmluw6Fsa3kgcG9zbGF0IHN2w71tIGJsw616a8O9bSwgamVuIHRhayBwcm8gcmFkb3N0 Lg0KS2XFoSBqZSBvcHJhdmR1IG5hbm8sIGhsZWRlanRlIGppIG5hIHNvdcWZYWRuaWPDrWNoIE4g NTDCsCAxLjY0MScgIEUgMTXCsCA0Ny41ODQnLiBEb2Jyw70gbG92Lg0KUG96bi46IFBva3VkIHNl IHZhbSB6b2JyYXp1amUgc3BhdG5lIGRpYWtyaXRpa2EsIHBvdXppanRlIG5hc3Ryb2osIGt0ZXJ5 
IHVtaSBVVEYtOC4NCg

1
2
3
4
5
6
7
8
9
*/ 
void doubleTree(struct node* node) { 
  struct node* oldLeft;
 
  if (node==NULL) return;
 
  // do the subtrees 
  doubleTree(node->left); 
  doubleTree(node->right);
 ...

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
public class Ronot {
        int temp=0;
int Robot(int n){
        //int temp=0;
        while(n>2){
                temp=(n-2)+Robot(n-2);
                n--;
        }
        return temp;
 ...

1
2
3
4
5
6
7
8
9
 
public class Ronot {
        int temp=0;
int Robot(int n){
        //int temp=0;
        while(n>2){
                temp=(n*2-2)+Robot(n*2-2);
                n--;
        }
 ...

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
 
 
public class Ronot {
        int temp=0;
int Robot(int n){
        //int temp=0;
        while(n>2){
                temp=((2*n)-2)+Robot((2*n)-2);
                n--;
 ...

1
2
3
4
5
6
7
8
9
public class Ronot {
int Robot(int n){
        int temp=0;
        while(n>2){
                temp=(2*n-2)+Robot(2*n-2);
                n--;
        }
        return temp;
}
 ...

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
#include<iostream>
#include<stdlib.h>
using namespace std;
int main()
{
int n,*a,i,j,k,l=0;cin>>n;
a=(int*)malloc(n*sizeof(int));
for(i=0;i<n;i++)
cin>>(*(a+i));
 ...

1
2
3
4
5
6
7
8
9
С одного форума фотографов:
 
Недавно приобрёл камеру Caнoн 400D. За небольшое время уже отснял кучу
фоток и вот уже подумываю не совместить ли мне приятное с полезным? А
именно — подработкой фотосъёмкой свадеб. С практикой фотосъёмки знаком
не понаслышке — имел приличный опыт фотосъёмки с «Зенитом». Прикидываю
что для этого нужно. Объектив в наличии пока только «китовый», понимаю
что нужен другой, но сейчас не потяну. Реально ли только с «китовым»?
Нужна внешняя вспышка, по деньгам прикидываю тысяч за 6—8,
 ...

1
2
3
4
5
6
7
8
9
WITH ada.Text_IO; USE ada.Text_IO;
WITH ada.Integer_Text_IO; USE ada.Integer_Text_IO;
PROCEDURE nim IS
SUBTYPE piletype IS character RANGE 'A'..'B'; -- used to keep track of the pile being used, A or B.
chips, -- chips holds initial number of chips
pile_a, pile_b : natural; -- pile_a, pile_b hold the current number of chips in each pile
done : boolean := false; -- set to true when the game is over
whichpile : piletype; -- holds the current pile being picked from
chipstaken : positive; -- holds the number of chips taken on current turn
 ...

1
2
3
4
5
6
7
8
9
WITH ada.Text_IO; USE ada.Text_IO;
WITH ada.Integer_Text_IO; USE ada.Integer_Text_IO;
PROCEDURE nim IS
SUBTYPE piletype IS character RANGE 'A'..'B'; -- used to keep track of the pile being used, A or B.
chips, -- chips holds initial number of chips
pile_a, pile_b : natural; -- pile_a, pile_b hold the current number of chips in each pile
done : boolean := false; -- set to true when the game is over
whichpile : piletype; -- holds the current pile being picked from
chipstaken : positive; -- holds the number of chips taken on current turn
 ...

1
2
3
4
5
6
7
8
9
WITH ada.Text_IO; USE ada.Text_IO;
WITH ada.Integer_Text_IO; USE ada.Integer_Text_IO;
PROCEDURE nim IS
SUBTYPE piletype IS character RANGE 'A'..'B'; -- used to keep track of the pile being used, A or B.
chips, -- chips holds initial number of chips
pile_a, pile_b : natural; -- pile_a, pile_b hold the current number of chips in each pile
done : boolean := false; -- set to true when the game is over
whichpile : piletype; -- holds the current pile being picked from
chipstaken : positive; -- holds the number of chips taken on current turn
 ...

1
2
3
4
5
6
7
8
9
WITH ada.Text_IO; USE ada.Text_IO;
WITH ada.Integer_Text_IO; USE ada.Integer_Text_IO;
PROCEDURE nim IS
SUBTYPE piletype IS character RANGE 'A'..'B'; -- used to keep track of the pile being used, A or B.
chips, -- chips holds initial number of chips
pile_a, pile_b : natural; -- pile_a, pile_b hold the current number of chips in each pile
done : boolean := false; -- set to true when the game is over
whichpile : piletype; -- holds the current pile being picked from
chipstaken : positive; -- holds the number of chips taken on current turn
 ...

1
2
3
4
5
6
7
8
9
WITH ada.Text_IO; USE ada.Text_IO;
WITH ada.Integer_Text_IO; USE ada.Integer_Text_IO;
PROCEDURE nim IS
SUBTYPE piletype IS character RANGE 'A'..'B'; -- used to keep track of the pile being used, A or B.
chips, -- chips holds initial number of chips
pile_a, pile_b : natural; -- pile_a, pile_b hold the current number of chips in each pile
done : boolean := false; -- set to true when the game is over
whichpile : piletype; -- holds the current pile being picked from
chipstaken : positive; -- holds the number of chips taken on current turn
 ...