Напечатать сообщение о наличии или отсутствии одинаковых названий и напечатать повторяющееся название, если оно есть

Категория: Basic
2011-12-02 16:00:48

Вводятся названия 3-х отелей.

code: #basic
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"

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: студенты, работа со строками, строки, qbasic