Шпаргалка по языкам

#include <stdio.h>
int main ()
 {
    printf ("Hello, world!\n"); // функция печати, \n - символ перевода строки
    return 0;
 }

#include <stdio.h>
int main ()
 {
    int x;
    int y;
    scanf("%d", &x);
    scanf("%d", &y);
    printf ("%d\n", x-y);
    return 0;
 }

#include <stdio.h>
int main ()
 {
    int x;
    int y;
    int res;
    scanf("%d", &x);
    scanf("%d", &y);
    // в переменной res сохранить результат операции x-y
    res = x - y;     
    printf ("%d\n", res);
    return 0;
 }

#include <stdio.h>
int main ()
 {
    int x;
    scanf("%d", &x);
    if ( x < 0 ) {
        printf ("NEG\n");
    } else {
        printf ("POS\n");
    }
    return 0;
 }

#include <stdio.h>
int main ()
 {
    int i;
    for(i=0; i<10; i++) {
        printf ("%d ", i);
    }
    printf ("\n");
    return 0;
 }

#include <stdio.h>
int main ()
 {
    int i;
    i = 0;
    while (i < 10) {
        printf ("%d ", i);
        i++;
    }
    printf ("\n");
    return 0;
 }

#include <stdio.h>

// Вместо 5 будем везде использовать N
#define N 5

// создали массив целых чисел из N элементов
int a[N];                   

int main ()
 {
    int i;
    // прочитали числа в массив
    for(i=0; i<N; i++) {
        scanf("%d ", &a[i]);
    }
    // распечатали числа из массива, 
    // индексы элементов массива меняются от большего к меньшему
    for(i=N-1; i>=0; i--) {
        printf ("%d ", a[i]);
    }
    printf ("\n");
    return 0;
 }

Program HelloWorld(output);
begin
  writeln('Hello, world!')  { оператор вывода строки }
end.

var a,b:longint;
begin
   readln(a,b);
   writeln(a-b);
end.

var a,b,res:longint;
begin
   readln(a,b);
   res := a-b;
   writeln(res);
end.

var a,b:longint;
begin
   readln(a,b);
   if (a<0) then
      writeln('NEG');
   else
      writeln('POS');
end.

var i:longint;
begin
   for i:=0 to 9 do
      writeln(i);
end.

var i:longint;
begin
    i:=0
    while i<=9 do
        writeln(i);
end.

Type  
  TA = Array[1..5] of Integer;  
 
var  
  a : TA;  
  i : Integer;  
begin  

// создали массив целых чисел из N элементов
begin
  for i:=1 to 5 do
    readln(a[i]);
  for i:=5 downto 1 do
    writeln(a[i]);
end.