// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var s:=ReadLnString('Введите натуральное число');
var k:=ReadChar('Введите символ для исключения');
s.Where(x->x in ['0'..'9']).Reverse.Where(x->x<>k).PrintLn('')
end.
<u><em>Тестовые решения</em></u>
<u>- сначала корректное число:</u>
Введите натуральное число 23610645311065462546320
Введите символ для исключения 6
023452450113540132
<u>- а теперь число, замусоренное разными символами:</u>
Введите натуральное число 1234 разорвем2356-783+342\1421453!!!
Введите символ для исключения 3
5412412487652421
1)
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
int a, k = 0;
cin >> a;
for(int b = abs(a);b > 0; b/=10)
if(b%10%2 == 0) k++;
cout << k << endl;
}
2)
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
int n, a, b;
bool flagA = false, flagB = false;
cin >> n >> a >> b;
for(int d = abs(n);d > 0; d/=10) {
if(d%10 == a) flagA = true;
else if(d%10 == b) flagB = true;
}
cout << ((flagA && flagB) ? "true" : "false") << endl;
}
B=642.25(8) = 1A2<span>.54(16)
a+b= 5C1.5(16) + </span>1A2.54(16) = 763<span>.A4(16)</span>