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