Задание:
Задано двухзачное число составьте программу с помощью которой определите сумму кубов цифр этогочисла
Решение:
Я же тебе отписал решение: program primer2; var x,o,c: integer; a,b,sum: real; Beginreadln (x); c: =x div 10; o: =x mod 10; a: =exp (3*ln (c); b: =exp (3*ln (o); sum: =a+b; writeln (sum: 8:3); end.
Знаете другой ответ?