Либо так. var a,b,j: integer; begin writeln('введите первое число'); readln(a); writeln('второе число'); readln(b); j: =(a*a*a)+(b*b*b); writeln('сумма кубов введенных чисел = ',j); end.
leobashkurov1089
02.03.2022
Uses crt; var a,b: integer; begin writeln('введите числа: '); read(a,b); writeln(power(a,3)+power(b,3)); end.
Program z1; var i,n,a,b,c: integer; m: array [1..1000] of integer; begin write('введите кол-во чисел - '); readln(n); randomize; a: =0; b: =0; c: =0; for i: =1 to n do begin m[i]: =random(100)-50; write (m[i],' '); end; for i: =1 to n do if (m[i]=0) then a: =a+1; for i: =1 to n do if (m[i]> 0) then b: =b+1; for i: =1 to n do if (m[i]< 0) then c: =c+1; writeln; writeln ('кол-во нулей - ',a); writeln ('кол-во положительных чисел - ',b); writeln ('кол-во отрицательных чисел - ',c); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составить программу для ввода двух чисел и вывода на экран суммы их кубов.