На острове ложно-правдивый живут только честные люди, всегда говорящие правду, и лжецы, которые всегда лгут. у любого лжеца нагрузка на работе меньше, а зарплата больше, чем у любого честного человека, причем чем больше работает островитянин, тем меньше он получает (к сожалению). известно также, что нагрузка у всех жителей разная. каждый житель острова однажды сделал два заявления: 1) “на острове нет и десяти человек, которые работают больше меня”; 2) “по крайней мере, сто человек на острове получают зарплату большую, чем моя”. сколько человек живет на этом острове?

Надо проанализировать высказывания самого работящего лжеца и честного жителя, получающего наибольшую (из честных островитян) зарплату (и одновременно работающего больше других честных жителей).из высказывания № 1 самого высокооплачиваемого из честных островитян очевидно, что таких жителей — не больше 10 (говорящий это и 9 или меньше человек, которых он имел в виду). с другой стороны, если проанализировать высказывание № 1 самого работящего из лжецов, то на острове имеется минимум 10 человек, работающих больше него, и все они — честные (напомним, что он — лжец и его высказывание — ложное). таким образом, на острове живут 10 честных жителей (n  = 10).из высказывания № 2 самого высокооплачиваемого из честных жителей следует, что на острове живут минимум 100 лжецов, из такого же высказывания самого низкооплачиваемого лжеца — что лжецов на острове — максимум 100. следовательно, на острове живут 100 лжецов (m  = 100).итак, 100 жителей острова — лжецы, и 10 — честные люди (вот такой “странный” остров  : ).

var

  a, b, c: real;

procedure traingle(a, b, c: real); {процедура с входными параметрами - размерами сторон}

begin

  if (a = b) or (a = c) or (b = c) then writeln('истинно') {если хотя бы две из трех сторон равны, то треугольник равнобедренный}

  else writeln('ложно');

end;

 

begin

  writeln('введите стороны треугольника a, b, c');

  readln(a, b, c);

  traingle(a, b, c);

end.