spellancer

	for (i=1;i<k;i++)
	{tmp=new spisok;
	
		for (j=0;j<strlen(st[i]);j++)
		{	
			tmp->num[j]=st[i][j];
			
		}
		if ((tmp->num[i])>=(last->num[i]))
			{

spellancer

// lab23.cpp: определяет точку входа для консольного приложения.
//

#include "stdafx.h"
#include <stdio.h>
#include <locale.h>
#include <string.h>
#include <stdlib.h>
#include <conio.h>

spellancer

// lab23.cpp: определяет точку входа для консольного приложения.
//

#include "stdafx.h"
#include <stdio.h>
#include <locale.h>
#include <string.h>
#include <stdlib.h>
#include <conio.h>

spellancer

// lab28.cpp: определяет точку входа для консольного приложения.
//Нанян Саркис АК5-21

#include "stdafx.h"
#include <iostream>
#include <set>
#include <fstream>
#include <locale>
#include <string>
#include <algorithm>

spellancer

/*Существует гипотеза, что для любого натурального  числа, если оно не палиндром, можно получить палиндром за конечное число шагов по следующей схеме. Меняем порядок его цифр на обратный и  складываем  исходное число с получившимся. Если сумма не палиндром, то над ней повторяется то же действие и так до тех пор, пока не получится палиндром. Написать программу, подтверждающую эту гипотезу.
*/
// lab21.cpp: определяет точку входа для консольного приложения.
//Нанян АК521
#include "stdafx.h"
#include <locale.h>
#include <stdio.h> 
#include <conio.h>
int m,k,s,j,n,kp,kk,tmp,i;
int test(int n );

spellancer

  program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type  tz = record
// group number
gnum:integer ;

spellancer

; Template for console application
         .586
         .MODEL  flat, stdcall
         OPTION CASEMAP:NONE

Include kernel32.inc
Include masm32.inc

IncludeLib kernel32.lib
IncludeLib masm32.lib

spellancer

; Template for console application
.586
.MODEL flat, stdcall
OPTION CASEMAP:NONE

Include kernel32.inc
Include masm32.inc

IncludeLib kernel32.lib
IncludeLib masm32.lib

spellancer

         .DATA
Matr DB 13,10,'Ishodnya matrica: ',13,10,0
Result1 DB ' '
ResStr1 DB 16 DUP (' '),13,10,0
res2 db ' '
ResStr2 DB 5 DUP (' '),13,10,0
Perechod DB 13,10,' ',13,10,0
result db 13,10,'Result:  ',13,10,0
ots db ' ',0
A SDWORD 20,3,4,5,6

spellancer

.DATA
usl DB 13,10,'### B=(a*a-b*b) + a if a*a/g<8, else b=8 ',13,10,0
error DB 13,10,' Error! division by zero! Enter correct #g!',13,10,0
zapa DB 13,10,'Enter value #a:',13,10,0
zapb DB 13,10,'Enter value #b:',13,10,0
zapg DB 13,10,'Enter value #g (g<>0 !):',13,10,0
ots db 13,10,'---------------------',13,10,0
result DB 13,10,'Result:',13,10,0
res db "       ",0