Необходимо напечатать статью в газету о событии. С каким расширением нужно сохранить эти данные

​

Існують такі групи анімаційних ефектів:

Вхід — анімація появи; анімаційний ефект буде демонструватись під час появи вибраного об'єкта;

Виділення — об’єкти будуть змінювати свої властивості під час демонстрації презентації;

Вихід — анімація, що застосовується для завершення відображення об'єкта. тобто зникнення об'єкта з екрана;

Шляхи переміщення — можна налаштувати траєкторію переміщення об'єкта під час демонстрації по прямій; для більш складної траєкторії потрібно вибрати «Інші шляхи переміщення» або «Намалювати користувацький шлях». Остання команда дає змогу створити власний анімаційиий ефект.

Объяснение постави ли за це 12

Формальное решение на случай, если Ваш QBasic не распознаёт кириллицу(формальное, потому что отображаться будет правильно, но текст с кириллицей ввести не получится):

DIM S$, C$
CLS
INPUT "BBEDITE TEXT: ", S$
k = 0
S$ = LCASE$(S$)
FOR i = 1 TO LEN(S$)
C$ = MID$(S$, i, 1)
IF (C$ = " ") OR (C$ = "Ґ") OR (C$ = "Ё") OR (C$ = "®") OR (C$ = "г") OR (C$ = "л") OR (C$ = "н") OR (C$ = "о") OR (C$ = "п") THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END

Если поддерживает кириллицу:

DIM S$, C$
CLS
INPUT "BBEDITE TEXT: ", S$
k = 0
S$ = LCASE$(S$)
FOR i = 1 TO LEN(S$)
C$ = MID$(S$, i, 1)
IF (C$ = "а") OR (C$ = "е") OR (C$ = "и") OR (C$ = "о") OR (C$ = "у") OR (C$ = "ы") OR (C$ = "э") OR (C$ = "ю") OR (C$ = "я") THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END