В списке из 12 фамилий заменить, фамилии начинающиеся с буквы «В» фамилией «Сидоров» — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DIM Fam(1 TO 12) AS STRING
DIM i AS INTEGER
CLS
FOR i=1 TO 12
   PRINT "ВВЕДИТЕ фамилию"
   INPUT Fam(i)
   IF UCASE$(LEFT$(Fam(i),1))="В" THEN
       Fam(i)="Сидоров"
   END IF
NEXT i
CLS
PRINT "список фамилий:"
FOR i=1 TO 12
   PRINT Fam(i)
NEXT i
END

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