хранение информации в письменной форме уходит в глубь веков. до наших дней в некоторых местах сохранились наскальные письмена древнего человека, выполненные 25-20 тысяч лет назад; лунный календарь, выгравированный на кости 20 тысяч лет назад. для письма также использовались дерево, глина. многие века письменные документы составлялись на пергаментных свитках. это было « дорогим удовольствием». пергамент делался из кожи животных. ее растягивали, чтобы получить тонкие листы. когда на востоке научились ткать шелк, его стали использовать не только для одежды, но и для письма.в письменной форме уходит в глубь веков. до наших дней в некоторых местах сохранились наскальные письмена древнего человека, выполненные 25-20 тысяч лет назад; лунный календарь, выгравированный на кости 20 тысяч лет назад. для письма также использовались дерево, глина. многие века письменные документы составлялись на пергаментных свитках. это было « дорогим удовольствием». пергамент делался из кожи животных. ее растягивали, чтобы получить тонкие листы. когда на востоке научились ткать шелк, его стали использовать не только для одежды, но и для письма.
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
Код валидный, если допустил ошибку во время переписывания - сообщите.
хранение информации в письменной форме уходит в глубь веков. до наших дней в некоторых местах сохранились наскальные письмена древнего человека, выполненные 25-20 тысяч лет назад; лунный календарь, выгравированный на кости 20 тысяч лет назад. для письма также использовались дерево, глина. многие века письменные документы составлялись на пергаментных свитках. это было « дорогим удовольствием». пергамент делался из кожи животных. ее растягивали, чтобы получить тонкие листы. когда на востоке научились ткать шелк, его стали использовать не только для одежды, но и для письма.в письменной форме уходит в глубь веков. до наших дней в некоторых местах сохранились наскальные письмена древнего человека, выполненные 25-20 тысяч лет назад; лунный календарь, выгравированный на кости 20 тысяч лет назад. для письма также использовались дерево, глина. многие века письменные документы составлялись на пергаментных свитках. это было « дорогим удовольствием». пергамент делался из кожи животных. ее растягивали, чтобы получить тонкие листы. когда на востоке научились ткать шелк, его стали использовать не только для одежды, но и для письма.
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
Код валидный, если допустил ошибку во время переписывания - сообщите.