#include <iostream> #include <ctime>//Нужно для генерации n - значных чисел using namespace std; int getRandVal(int n);//Функция генерирует случайное n-ое число //Функция вернёт массив цифр составляющих число val //переменная n будет содержать число цифр в массиве //флаг bGetArray определяет записывать ли разряды в //массив или лишь ограничиться подсчётом разрядов числа int * splitValue(int val, int &n, bool bGetArray); //Функция проверяет состоит ли число только из нечётных чисел bool (int val); int main() { int i; int m;//Будет содержать число чисел для анализа int n;//Будет содержать число разрядов для чисел int sum;//Будет содержать сумму чисел int cnt;//Будет содержать кол-во n-значных чисел //состоящих только из нечётных значений int *arr = NULL;//Указатель на массив с n-значн числами while(true) { system("cls"); cout<<"Enter number values in array : ";cin>>m; cout<<"Enter n digits in values : ";cin>>n; arr = new int[m]; cout<<"Generated array of values\n"; for(i = 0; i < m; i++) cout<<(arr[i] = getRandVal(n))<<endl; cout<<"Values in array with only odd numbers\n"; for(sum = (cnt = (i = 0)); i < m; i++) { if((arr[i])) { cout<<arr[i]<<endl; sum = sum + arr[i]; cnt = cnt + 1; } } delete [] arr; if(!cnt) cout<<"array not contain values which consist" <<" only from no-odd numbers\n"; else { cout<<"sum of values which consist" <<" only from no-odd numbers is " <<sum<<endl; //Разбиваем значение суммы на разряды arr = splitValue(sum, n, true); for(cnt = (i = 0); i < n; i++) { if(!(arr[i])) cnt = cnt + 1; } cout<<"given sum contains from "<<cnt<<" odditive numbers\n"; delete [] arr; } system("pause"); } return 0; } int getRandVal(int n) { int val = 0; int nDigits = 0; //Будем продолжать генерацию //пока не сгенерируем случ //n-значное число while(nDigits != n) splitValue((val = rand()%RAND_MAX), nDigits, false); return val; } int * splitValue(int val, int &n, bool bGetArray) { int * arr = NULL;//Указатель на массив с разрядами числа val if(val < 0) val *= -1;//Знак числа нам не нужен //Подсчитываем число разрядов в числе int i, buf = val; for(n = 0; 0 < buf; n++) buf = buf / 10; //Выделяем память под массив чисел if(bGetArray) { arr = new int[n]; for(i = 0; 0 < val; i++) { //Записываем в массив цифры разрядов числа arr[i] = val % 10; val = val / 10; } } return arr; } bool (int val) { bool bRet = true; int nDigits = 0; int * array = splitValue(val,nDigits,true); for(int i = 0; i < nDigits && bRet; i++) { if(array[i]%2 == 0) bRet = false; } delete [] array; return bRet; }
Function Bin(s As String, z As Integer) As String Dim c As Integer Dim oct As Integer c = Val(s) Do oc = c Mod 2 c = c \ 2 Bin = Bin & Str(oc) Loop Until c = 0 Bin = StrReverse(Bin) If z = -1 Then Bin = "-" & Bin End Function
Sub z() Dim s As String, s1 As String Dim n As Integer, i As Integer, z As Integer Dim max s = InputBox("Введите строку: ") max = Null i = 1 Do While i <= Len(s) Select Case Mid(s, i, 1) Case 0 To 9 If z = 0 And i > 1 Then z = IIf(Mid(s, i - 1, 1) = "-", -1, 1) Else: z = 1 End If s1 = s1 + Mid(s, i, 1) If i = Len(s) Then GoSub 1 Case Else: If s1 <> "" Then GoSub 1 End Select i = i + 1 Loop MsgBox ("max=" & max) End 1: n = z * Val(s1) MsgBox (n & "; двоичная форма: " & Bin(s1, z)) If IsNull(max) Then max = n If max < n Then max = n z = 0 s1 = "" Return End Sub
type Cl = class
a:integer;
constructor Create(b:integer);
procedure P;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.P;
begin
if (a div 100 > 0) and (a > 0) then
begin
a := a - 1;
writeln('new a = ', a);
end;
end;
var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.P;
Readln;
Obj.Destroy;
end.