Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них. Разделитель между числами – символ по усмотрению исполнителя. в программе бэйсик
Вот пример программы на языке программирования BASIC, которая находит порядковый номер наименьшего натурального числа в последовательности различных натуральных чисел:
10 INPUT "Введите последовательность чисел, завершите нулем: ", seq$ 20 LET min_num = 999999 30 LET order = 0 40 LET num = VAL(seq$) 50 WHILE num <> 0 60 IF num < min_num THEN 70 LET min_num = num 80 LET order = order + 1 90 END IF 100 LET num = VAL(seq$) 110 WEND 120 PRINT "Порядковый номер наименьшего числа: "; order
Вы можете скопировать этот код в среду программирования BASIC и запустить его, чтобы найти порядковый номер наименьшего числа введенной последовательности натуральных чисел.
Вот пример программы на языке программирования BASIC, которая находит порядковый номер наименьшего натурального числа в последовательности различных натуральных чисел:
10 INPUT "Введите последовательность чисел, завершите нулем: ", seq$20 LET min_num = 999999
30 LET order = 0
40 LET num = VAL(seq$)
50 WHILE num <> 0
60 IF num < min_num THEN
70 LET min_num = num
80 LET order = order + 1
90 END IF
100 LET num = VAL(seq$)
110 WEND
120 PRINT "Порядковый номер наименьшего числа: "; order
Вы можете скопировать этот код в среду программирования BASIC и запустить его, чтобы найти порядковый номер наименьшего числа введенной последовательности натуральных чисел.