#include<iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"RUS");
int A, B = 0;
cout <<"Введите натуральное число: ", cin >> A;
while(A > 0)
{
if (A % 10 != 1 && A % 10 != 5)
{
B = B*10 + (A % 10);
}
A = A / 10;
}
while(B > 0)
{
A = A*10 + (B % 10);
B = B / 10;
}
cout << A;
return 0;
}
1 A
2а
3A
4B
5A
6Г
Как то так, может и неправильно..
<span><span /><span><span>
x
x1
</span><span>
2.00
2.69
</span><span>
2.20
3.99
</span><span>
2.40
5.37
</span><span>
2.60
6.74
</span><span>
2.80
7.95
</span><span>
3.00
8.92
</span><span>
3.20
9.59
</span><span>
3.40
9.94
</span><span>
3.60
10.02
</span><span>
3.80
9.90
</span><span>
4.00
9.71
</span></span></span>
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов ',a.Sum);
Writeln('Количество четных элементов ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение:</em></u>
-3 4 10 1 2 6 8 7 10 14
Сумма элементов 59
Количество четных элементов 7
function Hypo(a, b: real) := Sqrt(a * a + b * b);
begin
var (a, b) := ReadInteger2();
Print('Периметр треугольника =', Hypo(a, b) + a + b)
end.