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 сестры. Если они не противоречат друг другу, значит они говорят правду, а третья - лжёт.
Валя и Кристина противоречат друг другу насчёт Сони и кристины
Соня и Кристина противоречат друг другу насчёт Сони
Валя и Соня не противоречат друг другу
Если мы соединим высказывания Вали и Сони, то получится:
Соня -
Кристина +
Валя -
ответ: Кристина лжёт. Она спрятала мышку.