.model tiny 
.386
.Stack 70h
 .code
start: 

mov ax,@data
mov ds,ax	
	
 push cs   
 pop ds
 mov ah,09h  ; приглашение к вводу
 mov dx,offset str1
 int 21h
 
 mov di,0  ; введенные символы
 mov si,0  ; номер позиции
 mov bp,10  ; основание системы
r1: mov ah,08h  
 int 21h  	 ;читаем символ
 cmp al,'0'  ;если это служебный символ -> r3
 jb r3
 cmp al,'9'  ;если это не цифра -> r1
 ja r1
 mov bl,al  ;сохраним символ в bl
 mov ax,di
 mul bp  	;умножаем на 10

 mov dl,bl
 sub dl,'0'  ;преобразуем символ в цифру
 mov dh,0  	 ;DX - цифра
 add dx,ax
 jc r1       ;Если перенос -> переполнение
 inc si
 mov di,dx   
 mov dl,bl
 mov ah,02h
 int 21h
 jmp r1
r3: cmp si,0
 je r1
 cmp al,13
 je enter2  ;нажали ввод
 cmp al,8  
 jne r1

enter2: 
 mov ah,09h  ;новая строка
 mov dx,offset newline
 int 21h

 mov mem,di ;дублируем эталон
 mov nen,di
 
 mov ax,mem ; эталон в AX для работы

 mov cnt,1	; счетчик в еденицу
 mov bl,1	
 mul bl		; переводим AX в DX:SI

main_cycle:	;главный цикл 


 add cnt,1	; проверяем следующее число
 mov bx,mem
 mov ax,cnt
 cmp ax,bx	; проверены все числа...
 jg qall


 
 mov bx,1	; переносим AX в DX:AX
 mul bx		
 
 mov cx,2	; делим с тройки
internal:
 push ax
 push dx	; сохраняем текущее проверяемое число
 ;mov bx,cx	
 div cx		; делим DX:AX на CX
 cmp dx,0	; если остатка нету
 je main_cycle; то число не простое
 pop dx
 pop ax
 
 
 add cx,1
 cmp ax,cx
 jle prime
 jmp internal
 
 prime:
 mov ah,09h  ;выводим простое число
 mov dx,offset space
 int 21h
 mov ax,cnt
  call print_prime
 jmp main_cycle
 
qall: 
 mov ax,4c00h;Выход
 int 21h
 
 print_prime proc ;вывод числа
 push -1
 l: xor dx,dx;чистим dx
 div bp 	 ;делим 
 push dx	 ;сохраним цифру
 cmp ax,0 	 ;остался 0? 
 jne l 		 ;если нет, продолжим
 mov ah,2h
l2: pop dx 	 ;восстановим цифру
 cmp dx,-1 	 ;дошли до конца -> выход
 je qex
 add dl,'0'  ;преобразуем число в цифру
 int 21h 	 ;выведем цифру на экран
 jmp l2 	 ;и продолжим
  qex:
 ret
endp print_prime
 
str1 db '.-==[Prime Numbers]==-.',10,13
 db '> $'
space	db ' $'
newline db 10,13,'$'
mem dw 0
nen dw 0
cnt dw 0


end start

function funk(var x:real):real;
begin
funk:=Ваша функция
end;

procedure left(var a,b,e:real);
var
k,s1,s2,p,l,rez:real;
i,g,n:integer;

begin
n:=30;
g:=0;
repeat
s2:=s1;
p:=(b-a)/n;
l:=0;
g:=g+1;
for i:=0 to n-1 do
begin
k:=a+i*p;
l:=l+funk(k);
end;
s1:=l*p;
n:=n*2;
until abs(s1-s2)<=e;
rez:=s1;
writeln('rezult ',rez:6:5,' kol-vo itaracij ',g);
readln;
end;

procedure right(var a,b,e:real);
var
t,s1,s2,h,s,rez:real;
n,i,g:integer;
begin
n:=30;
g:=0;
repeat
s2:=s1;
h:=(b-a)/n;
s:=0;
g:=g+1;
for i:=1 to n do
begin
t:=a+i*h;
s:=s+funk(t);
end;
s1:=s*h;
n:=n*2;
until abs(s1-s2)<=e;
rez:=s1;
writeln('rezult ',rez:6:5,' kol-vo itaracij ',g);
readln;
end;

procedure center (var a,b,e:real);
var
t,s1,s2,h,s,rez:real;
n,i,g:integer;
begin
n:=30;
g:=0;
repeat
s2:=s1;
h:=(b-a)/n;
s:=0;
g:=g+1;
for i:=0 to n-1 do
begin
t:=a+h/2+h*i;
s:=s+funk(t);
end;
s1:=s*h;
n:=n*2;
until abs(s1-s2)<=e;
rez:=s1;
writeln('rezult ',rez:6:5,' kol-vo itaracij ',g);
readln;
end;

procedure trap(var a,b,e:real);
var
t,s1,s2,h,s,rez: real;
i,n,g:integer;
begin
n:=30;
g:=0;
repeat
s2:=s1;
h:=(b-a)/n;
s:=(funk(a)-funk(b))/2;
g:=g+1;
for i:=1 to n-1 do
begin
t:=a+i*h;
s:=s+funk(t);
end;
s1:=h*s;
n:=n*2;
until abs(s1-s2)<=e;
rez:=s1;
writeln('rezult ',rez:6:5,' kol-vo itaracij ',g);
readln;
end;

procedure simps(var a,b,e:real);
var
s,r,s2,s1,h:real;
m,n,ch,g:integer;
begin
n:=30;
ch:=1;
g:=0;
repeat
s2:=s1;
h:=(b-a)/(n-1);
s:=funk(a)+funk(b);
g:=g+1;
for m:=1 to n-2 do
begin
r:=a+h*m;
s:=s+ch*funk(r);
if (ch=4) then ch:=2 else ch:=4;
end;
s1:=s*h/3;
until abs(s2-s1)/s1<e;
writeln('rezult ', s1 :6 :5,' kol-vo iteracij ',g);
readln;
end;
var
a,b,e:real;
vibor:integer;
begin
repeat
writeln('Vvedite metod naxogdeni9 Interala');
writeln('1-Pravilo levix pr9moygolnikov');
writeln('2-Pravilo pravix pr9moygolnikov');
writeln('3-Pravilo srednix pr9moygolnikov');
writeln('4-Naxogdenie integrala metodom simpsona');
writeln('5-Naxogdenie integrala s pomowu pravila Tropesii');
writeln('6-Informasi9 o programme');
readln(vibor);
writeln('');
if vibor=6 then
begin
clrscr;
writeln('-===========================================------');
writeln('Ваше имя сюда вобьете');
writeln('-===========================================------');
writeln('');
end;
until vibor<=5;
clrscr;
writeln('-===========================================------');
write('Vvedite a -  ');readln(a);
writeln('');
writeln('-===========================================------');
write('VVedite b - ');readln(b);
writeln('');
writeln('-===========================================------');
write('Vved EPS - ');readln(e);
writeln('');
writeln('-===========================================------');
if vibor=1 then
begin
writeln('Vi vibrali 1. Metod LeVix pr9moygolnikov'); writeln;
left(a,b,e);
end;
if vibor=2 then
begin
writeln('Vi vibrali 2. Metod PraVix pr9moygolnikov'); writeln;
right(a,b,e);
end;
if vibor=3 then
begin
writeln('Vi vibrali 3. Metod Srednix pr9moygolnikov'); writeln;
center(a,b,e);
end;
if vibor=4 then
begin
writeln('Vi vibrali 4.Metod TraPesii'); writeln;
trap(a,b,e);
end;
if vibor=5 then
begin
writeln('Vi vibrali 5. Metod Simpsona '); writeln;
simps(a,b,e);
end;
readln
end.

#include <vector>
#include <iostream>
#include <time.h>
#include <algorithm>
using namespace std;

bool pred( int value )
{
	return  !(value % 2) ;
}

void print( int value )
{
	cout << value << '\t';
}

void set_and_print( int& value)
{
	cout << ( value = rand() % 20 ) << '\t';
}

void main()
{
	const int size = 20;

	vector<int> vec(size);
	srand((unsigned)time(NULL));

	for_each(vec.begin(), vec.end(), set_and_print);

	cout << endl;

	partition(vec.begin(), vec.end(), pred);

	for_each(vec.begin(), vec.end(), print);

	cout << endl;
}