Question

Задачу на бейсике сделать нужноДаны два целых числа A и B . Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.Входные данные: ввести два целых числа A,BВыходные данные: вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.

Answer 1

СLS

a:

INPUT a

IF INT(a)<>a THEN GOTO a

b:

INPUT b

IF INT(b)<>b THEN GOTO b

IF b<a THEN k=a: a=b: b=k

FOR i = a TO b

PRINT i

NEXT i

n=b-a+1

PRINT n

 

Answer 2

Конечно, вот пример программы на языке BASIC, решающей данную задачу:

10 INPUT "Введите число A: ", A
20 INPUT "Введите число B: ", B

30 REM Определение минимального и максимального чисел
40 IF A < B THEN
50   MinNum = A
60   MaxNum = B
70 ELSE
80   MinNum = B
90   MaxNum = A
100 END IF

110 REM Вывод чисел в порядке возрастания
120 FOR i = MinNum TO MaxNum
130   PRINT i;
140 NEXT i

150 REM Вывод количества чисел N
160 N = MaxNum - MinNum + 1
170 PRINT "Количество чисел: "; N

180 END

Как работает программа: 1. Пользователю предлагается ввести два целых числа A и B. 2. Затем программа определяет минимальное (MinNum) и максимальное (MaxNum) число. 3. С помощью цикла FOR программа выводит все целые числа, расположенные между A и B (включая сами числа A и B), в порядке возрастания. 4. Программа также выводит количество чисел N, расположенных между A и B.

Примечание: Этот код приведен в качестве примера и может быть адаптирован под конкретные требования или особенности вашей среды выполнения на языке BASIC.