Question

дано целое число.Напишите программу,которая уменьшает на 2 модуль этого числа и выводит на экран монитора результат

Answer 1

Qbasic

===============

CLS

INPUT x

IF x <> FIX(x) THEN

INPUT x

ELSE

x = sqr(x)

x = x/2

PRINT x

END IF