Ввести с клавиатуры целые числа a, b, c. Посчитать выражение D=(a^2-b)*(c-b^2)/3. Вывести результат на экран копьютера.
REM func
INPUT a,b,c
IF (a^2-b)*(c-b^2)<>0 THEN
D=(a^2-b)*(c-b^2)/3
PRINT D
ELSE
PRINT "Реш.нет"
END IF
End
Оцени ответ
Вход
Регистрация
Задать вопрос
Ввести с клавиатуры целые числа a, b, c. Посчитать выражение D=(a^2-b)*(c-b^2)/3. Вывести результат на экран копьютера.
REM func
INPUT a,b,c
IF (a^2-b)*(c-b^2)<>0 THEN
D=(a^2-b)*(c-b^2)/3
PRINT D
ELSE
PRINT "Реш.нет"
END IF
End