Составьте программу для нахождения куба числа если оно положительное
Answers & Comments
FANTSCR1N
Program z8; Var a:integer;Begin write('Введите число - '); readln(a); if (a > 0) then write('Число ',a,' в кубе - ',a*a*a) else if (a < 0) then write('Вы ввели отрицательное число') else write('Вы ввели 0'); End.
Answers & Comments