Basic вводный курс


Задача 235


' Замена буквосочетаний DATA PHOTO, GRAPH, PHILOPHON, COPHE CLS
FOR 1=1 TO 4 READ W$ FOR J=l TO LEN(W$)
P$=MID$(W$, J, 1): H$=MID$(W$, J + 1, 1)
IF P$o"P" THEN PRINT P$; ELSE IF H$o"H" THEN PRINT H$; ELSE
PRINT "F"; : J=J+1
NEXT J
PRINT NEXT I END









Начало  Назад  Вперед



Книжный магазин