Если бы ты был внутренне благ и чист, тогда бы ты все видел и постигал без труда. Чистое сердце проникает в тайны неба и в тайны преисподней. Каков человек внутри себя, так он и судит обо всем внешнем. Если в мире и есть какая-либо радость, обретается она в чистом сердце. А все напасти и скорби лучше всего ведомы сердцу злому. Подобно железу, которое, будучи помещенным в огонь, раскаляется и очищается от ржавчины, человек, обращающий всего себя к Богу, очищается от лености и превращается в нового человека.
uses crt; var c:char; begin clrscr; write('Введите символ '); readln(c); case c of '0'..'9':write('Это десятичная цифра, ее код ',ord(c)); 'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c)); 'a'..'z':write('Это строчная латинская буква, ее код ',ord(c)); '+','-','*':write('Это знак арифметического действия, его код ',ord(c)); //убрал знак /, он в спец. символах ';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c)); else write('Символ не входит в указанный список') end; readln end.
№1 1) Названием программы не может быть оператор end 2) Ошибок нет 3) Неверно написан оператор (нужно programm, вместо programma) №2 1) Неправильно записан оператор mod. Неправильно написан знак присваивания (:=) 2) Неправильно записан оператор div. Неправильно написан знак присваивания (:=) 3) Недостаточно аргументов. Неправильно написан знак присваивания (:=) 4) Неправильно записан оператор div. Неправильно написан знак присваивания (:=). Лишний символ ^ №3 1) 1 2) Ошибка 3) 4 4) 5 5) 64 6) 10 7) 81 №4 Вообще, здесь должна быть ошибка, потому что неверно записан знак присваивания Если представить, что там все правильно, тогда: b=4680 a=4682