Поділи циферблат годинника двома прямими на три частини так, щоб у кожній частині суми чисел були однаковими.

Провести лінії від  між 10  і 11 до між 2  і 3     а другу між 9 і 8 до між 4 і 5     в одній частині :   11,  12,  1,  2.   в другій частині: 9,   10,   3,   4.   в   третій частині 8,   7,   6,   5.   і вийшло   по 26 у кожній частині

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 символ.

Объяснение:

Const   n = 20; var   i, k: integer;   a: array[1..n] of longint; begin   writeln('введите с клавиатуры ', n, ' целых чисел через пробел');   k : = 0;   read(a[1]);   for i : = 2 to n do   begin       read(a[i]);       if ((a[i - 1] * a[i] mod 2) = 1) and ((a[i - 1] + a[i] mod 5) < > 0) then k : = k + 1   end;   writeln(#13#10, 'найдено пар: ', k) end. тестовое решение: введите с клавиатуры 20 целых чисел через пробел 10 24 18 35 35 16 52 163 265 210 318 45 18 35 62 10 84 90 425 300 найдено пар; 2