1.
<span><span><span><span>
10.00
</span></span><span><span>
-3.55
</span></span><span><span>
0.40
</span></span><span><span>
55.00
</span></span><span><span>
</span></span></span></span>
2.
<span><span><span><span>
1.538E-02
</span></span><span><span>
1.255E+02
</span></span><span><span>
4.582E+02
</span></span><span><span>
2.500E+02
</span></span></span></span>
3.
В Паскале
P real
<span>В VBA
</span>Dim P As Variant
<span> </span>
3. If not (A = B) Then
begin
A = A + B;
B = A + B;
end
else
begin
A = 0;
B = 0;
end;
// PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('A.txt').ToIntegers;
WriteAllText('B.txt',(a[0]*a[1]).ToString)
end.
Задачу проще всего решить, уже имея набор этих чисел, а их не так много и их можно найти в интернете)
#include <iostream>
#include <vector>
using namespace std;
int main() {
vector <long long int> armstrong = {1, 2, 3, 4, 5, 6, 7, 8, 9, 153, 370, 371, 407, 1634, 8208, 9474, 54748, 92727, 93084, 548834, 1741725, 4210818, 9800817, 9926315, 24678050, 24678051, 88593477, 146511208, 472335975, 534494836, 912985153, 4679307774};
long long int n;
int l = armstrong.size();
cin >> n;
for (int i = 0; i < l && armstrong[i] <= n; ++i)
cout << armstrong[i] << '\n';
return 0;
}