Skip to content

Instantly share code, notes, and snippets.

@drage0
drage0 / Z45.pas
Last active April 25, 2016 17:20
PROGRAM z45;
TYPE niz = ARRAY[1..100] OF integer;
VAR
x, y : niz;
n, i, j : integer;
PROCEDURE unos(n: integer; var x: niz);
VAR i: integer;
BEGIN
FOR i:=1 TO n DO
BEGIN
PROGRAM z46;
TYPE niz = ARRAY[1..100] OF integer;
VAR
x: niz;
i, n, cNZD: integer;
PROCEDURE unos(n: integer; var x: niz);
VAR i: integer;
BEGIN
FOR i:=1 TO n DO
BEGIN
PROGRAM baraba;
TYPE
niz = ARRAY[1..100] OF integer;
VAR
x: niz;
n: integer;
PROCEDURE unos(VAR x: niz; n: integer);
VAR
i: integer;
#include<iostream>
using namespace std;
int main(void){
int x,y;
cin >> x;
y = 2;
while (x > 1){
#include <iostream>
#include <stdio.h>
using namespace std;
int main(void){
int x,y;
cin >> x;
y = 2;
#include <iostream>
using namespace std;
int main(void){
int x,y;
bool b = false;
cin >> x;
y = 2;
#include <iostream>
#include <stdlib.h>
#include <stdio.h>
using namespace std;
int main(void){
unsigned long long int testN;
int x, y;
bool b = false;