Высказывания сестёр (+ означает виновна, - не виновна, 0 про неё ничего не сказано)
Валя Соня КристинаСоня - Соня - Соня +
Кристина + Кристина 0 Кристина -
Валя 0 Валя - Валя 0
Известно, что 2 сестры точно говорят правду, другая лжёт
Теперь берём любые 2 сестры. Если они не противоречат друг другу, значит они говорят правду, а третья - лжёт.
Валя и Кристина противоречат друг другу насчёт Сони и кристины
Соня и Кристина противоречат друг другу насчёт Сони
Валя и Соня не противоречат друг другу
Если мы соединим высказывания Вали и Сони, то получится:
Соня -
Кристина +
Валя -
ответ: Кристина лжёт. Она спрятала мышку.
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
while x<>y do begin
if x>y then begin
x:=x-y
end
else begin
y:=y-x
end
end;
nod2:=xend;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
nod(a,b,b);
nod(b,c,c);
nod(c,d,d);
writeln('nod=',d);
readln
end.