TURBO PASCAL

Новости

Решение задач

Имеются описания

Var x, y :(winter, spring, summer, autumn); t: (cold, warm);

	Допустимы ли присваивания: `x := spring; t := warm; t := hot; y := x; y := t;`
	Вычислить значения выражений: `spring<summer; autumn<winter; Succ(spring); Pred(autumn); Ord(spring); winter<=summer; spring<>warm; Pred(spring); Pred(cold); Pred(autumn)+Ord(cold);`

Допустим ли оператор цикла с заголовком

For x:=spring To autumn Do?

Напишите программу, которая по заданной дате определяет время года. Программа должна проверять корректность введённой даты.
Даны описания следующих переменных:
Var m, m1: (january, february, marth, april, may, june, jule, august, september, october, november, december); k : 1..maxint; n : 1..12;
Внутри каждого подцикла годы носили название животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. Напишите программу, которая по номеру года определяет его название по старояпонскому календарю (1984-год зелёной крысы).
Дано неотрицательное число k, не превышающее десяти тысяч. Напечатать фразу "k ворон" русскими словами. (Пример: если k = 23, то должно быть напечатано "двадцать три вороны"; если k = 3651, то "три тысячи шестьсот пятьдесят одна ворона").

Имеются описания

Var d :'0'..'9'; k : 0..9; n : Integer;

Ответьте на следующие вопросы:

	Какие значения может принимать переменная d? Каков её базовый тип? Допустимы ли присваивания: d := '7'; d := 'a'; d := 7?
	Какие значения может принимать переменная k? Каков её базовый тип? Допустимы ли присваивания: k := 5; k := 10; k := 0; k := '5'?
	Верно ли, что квадрат значениям ограниченного типа можно применять те же операции, что и квадрат значениям базового типа? Есть ли ошибки в операторе: `If k + n>7*k Then k := abs(n) Mod 10 Else d := chr(k + Ord('0'))?`

По всем интересующим вопросам прошу писать на электронный адрес