Type падеж = (им,род,дат,вин,твор,предл); слово = (степь,боль,тетрадь,дверь); var w: слово; р: падеж; напечатать слово w в падеже р и единственном числе (например, при w = степь и р = твор надо напечатать слово степью). язык программирования паскаль, .

Яркая иллюстрация того, как не надо работать с перечислимым типом данных type   падеж=(им,род,дат,вин,твор,предл);   слово=(степь,боль,тетрадь,дверь); var   w: слово;   p: падеж;   s: string;   n: 0..5; begin   writeln('введите номер слова');   write('0-степь,1-боль,2-тетрадь,3-дверь: '); read(n);   case n of   0: w: =степь;   1: w: =боль;   2: w: =тетрадь;   3: w: =дверь   end;   s: =w.tostring;   writeln('введите номер падежа');   write('0-им, 1-род, 2-дат, 3-вин, 4-твор, 5-предл: '); read(n);   case n of   0: p: =им;   1: p: =род;   2: p: =дат;   3: p: =вин;   4: p: =твор;   5: p: =предл   end;   case p of   им,вин: writeln(s);   род,дат,предл: writeln(copy(s,1,length(s)-1)+'и');   твор: writeln(s+'ю')   end end. пример введите номер слова 0-степь,1-боль,2-тетрадь,3-дверь: 2 введите номер падежа 0-им, 1-род, 2-дат, 3-вин, 4-твор, 5-предл: 4 тетрадью

a

Объяснение:

потому что так

a да да да