Задано существительное 1-го склонения,оканчивающееся на "а".Составьте программу,позволяющую вывести на экран это слово во всех падежах

1

Ответы и объяснения

  • SkyBy
  • главный мозг
2013-12-18T21:12:15+04:00
Добрый день!
Данный вопрос был недавно рассмотрен.
var a: string;
begin
write ('Введите слово: '); read (a);
writeln ('Именительный падеж: ',copy(a,1,length(a)));
writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы');
writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е');
writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у');
writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой');
writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е');
end.