Сілтеме және гиперсілтемелердің айырмашылығы

program raf105;

var a:array[1..100,1..2] of char;

glas,s:string;

i,j,sumglas:integer;

begin

glas:='аеёиоуыэюя'; // Перечисление гласных

for i:=1 to length(glas) do

 a[i,2]:= glas[i]; //Заполнение второй строки для гласных

writeln('Введите строку');

readln(s);

for i:=1 to length(s) do

 a[i,1]:= s[i]; //Заполнение первой строки для введённых букв

for i:=1 to length(s) do

 for j:=1 to length(glas) do

   if a[i,1] = a[j,2] //если символ из строки 1 = символу из строки 2

     then sumglas:= sumglas+1; //Прибавление единицы к счётчику

writeln('В строке ',sumglas,' гласных');

end.

Высказывания сестёр (+ означает виновна, - не виновна, 0 про неё ничего не сказано)

  Соня -                        Соня -                             Соня +

Кристина +               Кристина 0                    Кристина -  

  Валя 0                        Валя -                            Валя 0

Известно, что 2 сестры точно говорят правду, другая лжёт

Теперь берём любые 2 сестры. Если они не противоречат друг другу, значит они говорят правду, а третья - лжёт.

Валя и Кристина противоречат друг другу насчёт Сони и кристины

Соня и Кристина противоречат друг другу насчёт Сони

Валя и Соня не противоречат друг другу

Если мы соединим высказывания Вали и Сони, то получится:

  Соня -

Кристина +

   Валя -