Составить программу для ввода двух чисел и вывода на экран суммы их кубов.
Uses crt; var a,b:integer; begin writeln('Введите числа: '); read(a,b); writeln(power(a,3)+power(b,3)); end.
чё, прям все так и писать?
можно так, а можно writeln(a*a*a+b*b*b)
Либо так. var a,b,j:integer; begin writeln('Введите первое число'); readln(a); writeln('Второе число'); readln(b); j:=(a*a*a)+(b*b*b); writeln('Сумма кубов введенных чисел = ',j); end.