1)заданы значения x y z составить программу которая находит сумму кубов модулей этих чисел 2)задано двухзначное число составить программу с помощью которой определите сумму кубов цифр этого числа
1)заданы значения x y z составить программу которая находит сумму кубов модулей этих чисел 2)задано двухзначное число составить программу с помощью которой определите сумму кубов цифр этого числа
Гость
Ответ(ы) на вопрос:
ГостьСмог решить только вторую: program primer2; var x,o,c:integer;
a,b,sum:real;
Begin
readln(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.
Не нашли ответ?
Похожие вопросы