Вводятся Фамилия и Имя. Если количество букв в имени больше чем в Фамилии, то выдать Имя в обратной записи, а Фамилию в прямой, если наоборот, т.е. количество букв в Фамилии больше чем в Имени, то выдать Фамилию в обратной записи, а Имя в прямой, и если они равны, то выдать и Фамилию и Имя в обратной записи — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
INPUT "vvedite familiyu ",f$
INPUT "vvedite imya ",n$
FOR i=1 TO LEN(n$)
n1$=MID$(n$,i,1)+n1$
NEXT
FOR i=1 TO LEN(f$)
f1$=MID$(f$,i,1)+f1$
NEXT
IF LEN(n$)>len(f$) THEN PRINT n1$;" ";f$ ELSE IF LEN(f$)>len(n$)THEN PRINT f1$;" ";n$ ELSE PRINT f1$;" ";n1$

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

Leave a Comment