8 цветов кодируются 2^n=8, n=3 битам
Объем видеопамяти
640 * 350 * 3 = 672 000 бита
<span>512 цветная палитра требует
2^n=512, n=9 бита
672 000 / 9 = 74666,67 бита на изображение
Изображение может быть например</span><span>
600</span> * 124 точек
часть памяти останется свободной
74666 - 600 * 124 = 266 бита
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.
Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.
Надо модуль crt подключить:
uses crt;