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

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$

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment