Program igra;var a,b,c:integer;beginwriteln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Сколько тебе лет?')else writeln('Подтянись 5 раз');writeln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Сколько стоит твой компьютер?')else writeln('Пробеги вокруг техникума 5 раз');writeln('Правда или действие? Если выбираете правду, введите 1, если действие 2');read(a);if a=1 then writeln('Какой человек самый неприятный для тебя?')else writeln('Не садись целый час');end.
Объясняю свой алгоритм решения данного задания. Берём и запихиваем все строки в двумерный чар массив. Потом построчно сравниваем i-j элемент столбца с i+1-j. Если это одинаковые символы - мы прибавляем к счётчику +1. Потом сравниваем i-j+1 и i+1-j+1, если они равны, то мы прибавляем +1 при условии того, что один из этих элементов равен одному из предыдущих Ну а потом если наш счётчик составляет 2 - мы уже знаем что этот узор не симпатичный. В противном же случае мы идём дальше до size-1. (в нашем случае size=4 поэтому 4-1=3) Скриншот с результатом работы, скоростью и самим кодом прикрепил. UPD: Ещё можешь уменьшить кол-во итераций, во втором цикле в условии можно сделать strlen(a[i])-1
1-2
2-3
3-1
4-4
5-2
6-24
7. А2 Б1 В2 Г1