#include<iostream>
#include<cmath>
using namespace std;
int main()
{
int a, j = 0;
cin >> a;
int k = a;
while(k>0) {
j += k % 10;
k /= 10;
}
if (pow(j,3) == pow(a, 2))
cout << "Куб суммы цифр этого числа равен А*А." << endl;
else
cout << "Куб суммы цифр этого числа не равен А*А." << endl;
}
Старый друг лучше новых двух
Pascal:
ln(abs((y-sqrt(abs(x)))*(x-y/(x+sqr(x)/4))))
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var Число := ReadInteger('Введите натуральное число:');
var (Четных, Нечетных) := (0, 0);
while Число > 0 do
begin
if (Число mod 10).IsOdd then Inc(Нечетных)
else Inc(Четных);
Число := Число div 10
end;
Println('Нечетных', Нечетных, 'четных', Четных)
end.
<h2>Введите натуральное число: 1406439</h2><h2>Нечетных 3 четных 4 </h2>
2^i = N
2^i = 16777216 =>
i = 24
K = l * h
K = 1024 * 768 = 786432
I = K * i
I = 786432 * 24 = 18874368 бит = 2359296 байт = 2304 кбайт
Ответ: 2304 кбайт.