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

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

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

Leave a Comment