Есть ответ 👍

Десятилетний цикл опирается на две важнейшие идеи древней китайской философии. пять элементов сменяют друг друга через два года. При этом первый год их этих двух форм имеет форму ян, а второй форму инь, год 1900 соответствовал металлу в форме ян. Двенадцатилетний цикл определяет животное или знак. Порядок смены таков крыса, бык, тигр, кролик, дракон, змея, лошадь, коза, обезьяна, петух, собака, кабан. Эти двенадцать знаков поделены на четыре триады. В первую триаду входят крыса, дракон и обезьяна, во вторую бык, змея и петух, в третью тигр, лошадь и собака, в четвёртую кролик, коза и кабан. Год 1900 был годом крысы и соответственно входил в первую триаду.
Таким образом, для каждого китайский гороскоп определяет четыре признака элемент, форму, знак и триаду. Ваша задача - по годам рождения двух человек определить, сколько они будут иметь общих признаков в соответствии с китайским гороскопом.
входные данные. Заданы два целых числа, определяющие годы рождения двух человек. Каждое число задаётся в отдельной строке и лежит в диапазоне от 1600 до 2400.
Выходные данные. Выведите одно число - общее количество признаков у двух заданных лет.

222
290
Посмотреть ответы 1

Ответы на вопрос:


//pascal abc.net версия 2.2 сборка 790 var a,b: string; i,j,k: integer; begin; readln(a); readln(b); for i: =1 to length(a) do     begin;       for j: =1 to length(b) do         begin;           if a[i]=b[j] then             begin;               delete(b,j,1);               inc(k);             end;         end; end; if k=length(a) then writeln('да') else writeln('нет'); end. пример ввода: abc cba пример вывода: да

Популярно: Информатика