Нужны все ответы на 'Людмила Евич: ЕГЭ-2020. Информатика и ИКТ. 20 тренировочных вариантов',только ответы.

# include <iostream>

using namespace std;

int main()
{
    setlocale(LC_ALL, "Russian");
    int n, n_copy, min1, min2, temp;
    min1 = 9; min2 = 9;
    cout << "Введите число: "; cin >> n;
    n_copy = n;
    while (n > 0) {
        temp = n % 10;
        if (temp < min1)
            min1 = temp;
        n = n / 10;
    }
    cout << "Первое минимальное = " << min1 << endl;
    n = n_copy;
    int b = 0;
    while (n) {
        if (n % 10 != min1) b = b * 10 + n % 10;
        n /= 10;
    }
    while (b) {
        n = n * 10 + b % 10;
        b /= 10;
    }
    while (n > 0) {
        temp = n % 10;
        if (temp < min2)
            min2 = temp;
        n = n / 10;
    }
cout << "Второе минимальное = " << min2 << endl;
int sum = min1 + min2;

if (sum % 2 == 0)
cout << "Сумма двух минимальных цифр " << min1 << "+" << min2 << "=" << sum << " четная." << endl;
    else
cout << "Сумма двух минимальных цифр " << min1 << "+" << min2 << "=" << sum << " не четная." << endl;

    system("pause");
    return 0;
}

степень

Program Jopascal;  

Var  

 i, A: longint;  

 x,  

 u, j,  

 N, m : longint;  

Function FDiv (A, left : LongInt) : LongInt;  

var  

d,  

i : longint;  

begin  

d := 1;  

for i := left to Trunc (Sqrt (A)) do  

if (A mod i = 0)  

then  

begin  

d := i;  

Break;  

end;  

if (d <> 1)  

then  

FDiv := d  

else  

FDiv := A;  

end;  

Function g (N, u : longint) : longint;  

var  

i : longint;  

begin  

i := 0;  

while (N mod u = 0)  

do

begin  

Inc (i);  

N := N div u;  

end;  

g := i;  

end;  

Begin  

Assign (Input, 'input.txt');  

Assign (Output, 'output.txt');  

Reset (Input);  

Read (A);  

Close (Input);  

m := 0;  

N := 1;  

i := FDiv (A, 2);  

u := 2;  

while (A > 1)  

do  

begin  

N := N * i;  

j := 0;  

while (A mod i = 0)  

do  

begin  

Inc (j);  

A := A div i;  

end;  

if (j > m)  

then  

begin  

m := j;  

u := i;  

end;  

i := FDiv (A, i + 2);  

end;  

x := 1;  

while (g (N * x, u) * N * x < m)  

do  

Inc (x);  

N := N * x;  

ReWrite (Output);  

Write (N);  

Close (Output);  

End.