1)40*50=2000-на 1 стр.
2)2000*30= 60000- объем книги в байтах
<span>если надо в Кб то 60000 делите на 1024, если в Мб то получившиеся число после Кб делим еще на 1024</span>
Var a,b,c,U,R:longint;beginread (U,R);write(U/R) ;end.
Формальное решение на случай, если Ваш 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
Ответ: Четверг
Лев вчера лгал. Он сказал правду, он вчера лгал
Единорог солгал т.к. сегодня четверг. Он тоже сказал что не врёт.
1.
А) Истина
Б) Истина
В) Ложь
Г) Истина
Д) Ложь
2.
d f d^f d\/f -d -f
1ложь ложь ложь ложь истина истина
2ложь истина ложь истина истина ложь
3истина ложь ложь истина ложь истина
4истина истина истина истина ложь ложь