Qbasic . пусть даны целое число n, символы s1,. преобразуйте последовательность s1,, удалив каждый символ звездочки (*) и повторив каждый символ, отличной от звездочки.
DIM s AS STRING, s1 AS STRING, n AS INTEGER DIM i AS INTEGER, c AS STRING * 1 INPUT "s=", s s1 = "" FOR i = 1 TO LEN(s) c = MID$(s, i, 1) IF c <> "*" THEN s1 = s1 + c + c NEXT i PRINT s1 END
Тестовое решение: s=12.4*1.45+sin(2*Pi*x) 1122..4411..4455++ssiinn((22PPiixx)) Чтобы продолжить, нажмите любую клавишу
По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.
DIM i AS INTEGER, c AS STRING * 1
INPUT "s=", s
s1 = ""
FOR i = 1 TO LEN(s)
c = MID$(s, i, 1)
IF c <> "*" THEN s1 = s1 + c + c
NEXT i
PRINT s1
END
Тестовое решение:
s=12.4*1.45+sin(2*Pi*x)
1122..4411..4455++ssiinn((22PPiixx))
Чтобы продолжить, нажмите любую клавишу