Вводятся названия 3-х отелей. Напечатать сообщение о наличии или отсутствии одинаковых названий и напечатать повторяющееся название, если оно есть- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
FOR i = 1 TO 3
    PRINT "vvedite nazvanie "; i; " otelya"
    INPUT a$(i)
NEXT
FOR i = 1 TO 3
    f = 0
    FOR j = i + 1 TO 3
        IF a$(i) = a$(j) THEN f = 1: t = 1
    NEXT
    IF f = 1 THEN PRINT a$(i)
NEXT
IF t = 0 THEN PRINT "povtorov net"

Следующий вариант

1
2
3
4
5
6
7
8
9
CLS
INPUT "Vvedite nazvanie pervogo otelia: ", a$
INPUT "Vvedite nazvanie vtorogo otelia: ", b$
INPUT "Vvedite nazvanie trer'ego otelia: ", c$
IF a$ = b$ OR a$ = c$ THEN povtor$ = a$: f = 1
IF b$ = a$ OR b$ = c$ THEN povtor$ = b$: f = 1
IF c$ = a$ OR c$ = b$ THEN povtor$ = c$: f = 1
IF f = 1 THEN PRINT "povtor=", povtor$ ELSE PRINT  "povtora net"
END

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

Похожие записи/страницы:

Leave a Comment