#include <cstdio>
<span>long long ans, a;
</span><span>int main()
</span><span>{
</span><span> scanf("%lld", &a); //считываем исходное число
</span><span> a *= a; //возводим исходное число в квадрат
</span><span> ans = a; //в ответе хранится квадрат исходного числа
</span><span> a *= a; //в a хранится 4 степень исходного числа
</span><span> a *= a; //в a хранится 8 степень исходного числа
</span><span> ans *= a; //2 степень исходного числа умножаем на 8 степень
</span><span> printf("%lld", ans); //выводим ответ
</span><span> return 0;
</span><span>}</span>
Помогла?лоооооооол,чем помочь то???
Sub aaa()
a = InputBox("Введите число А")
b = InputBox("Введите число B")
c = InputBox("Введите число C")
s = a + b + c
k = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "0" Then k = k + 1
Next i
MsgBox "Общее количество нулей равно" + Str(k)
End Sub
Var m,n:integer;
begin
write('Введите два числа m и n: '); Readln(m,n);
if (m div n) mod 2 = 0 then m:=m*m
else n:=n*3;
Write('m=',m,', n=',n);
end.