Даны целые числа М и Н. Если числа не равны, то заменить каждое из них одним и тем же числом , равным большему из исходных, а если равны, то заменить числа нулями.- QBasic(Бейсик)

CLS
INPUT "m="; m%
INPUT "n="; n%
IF m%<>n% THEN
 IF m%>n% THEN n%=m%
 IF m%<n% THEN m%=n%
ELSE
 m%=0: n%=0
END IF
PRINT "m="; m%
PRINT "n="; n%

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment