Question

Ввести четырехзначное число.Заменить в нем первую цифру на разность первой и последней цифр,если разность положительна  НА Q BASIC.СРОЧНООООО ПОМОГИТЕ ПОЖАЛУЙСТА(((((

Answer 1

Я ПЛОХО ЗНАЮ ЭТОТ ЯЗЫК, НО ПРОГРАММА РАБОТАЕТ:
INPUT "x=";x
INPUT "y=";y
INPUT "z="; z
INPUT "t="; t
s=1000*x+100*y+10*z+t
n=x-t
IF x>t then s=t*1000+y*100+z*10+x
PRINT s

Answer 2

Вот пример программы на QBasic, которая выполняет указанные вами действия:

qbasicCopy code
CLS
INPUT "Введите четырехзначное число: ", num

firstDigit = INT(num / 1000) ' Получаем первую цифру
lastDigit = num MOD 10 ' Получаем последнюю цифру

IF (firstDigit - lastDigit) > 0 THEN
    newNum = (firstDigit - lastDigit) * 1000 + num MOD 1000 ' Заменяем первую цифру на разность, если разность положительна
    PRINT "Новое число:", newNum
ELSE
    PRINT "Разность первой и последней цифры не положительна."
ENDIF

END

Вы можете скопировать этот код и выполнить его в среде разработки QBasic или совместимой с QBasic. Программа попросит вас ввести четырехзначное число, а затем выведет новое число с замененной первой цифрой, если разность первой и последней цифры положительна.