Папирус стоил дорого. Поэтому случалось, что старую запись смывали и поверх нее писали новый текст. Это -- палимпсест. Писали заостренными палочками с расщепленными, как теперешние перья, кончиками. У каждого писца был свой пенал, в нем лежали палочки, в нем же были выдолблены два углубления для черной и красной краски. Основной текст писали черной краской, только начало строки, а иногда и начало фразы выделялись красной. Начало фразы, но не прописная буква -- в египетском письме слова не отделялись друг от друга. Красной точечкой отделялись отдельные фразы в поэтических произведениях..
Новый абзац в тексте мы начинаем с красной строки.
CLS DIM n AS INTEGER INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n INPUT "Введите имя студента:", studentName(i) INPUT "Введите год рождения студента:", studentYearsOld(i) NEXT i PRINT FOR i = 1 TO n PRINT "Студент "; studentName(i) studentYrs = 2016 - studentYearsOld(i) IF studentYrs < 18 THEN PRINT "Лет до права голоса:"; 18 - studentYrs ELSEIF studentYrs >= 18 THEN PRINT "Студент уже имеет право голоса!" PRINT END IF studentYrs = 0 NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.
Папирус стоил дорого. Поэтому случалось, что старую запись смывали и
поверх нее писали новый текст. Это -- палимпсест. Писали заостренными
палочками с расщепленными, как теперешние перья, кончиками. У каждого
писца был свой пенал, в нем лежали палочки, в нем же были выдолблены два
углубления для черной и красной краски. Основной текст писали черной
краской, только начало строки, а иногда и начало фразы выделялись красной.
Начало фразы, но не прописная буква -- в египетском письме слова не
отделялись друг от друга. Красной точечкой отделялись отдельные фразы в
поэтических произведениях..
Новый абзац в тексте мы начинаем с красной строки.
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.