2. Найдите соответствие

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

если первый говорит правду, то он тоже брехун и, значит, не может говорить правду, значит первый брехун, второй сказал правду, так как из них он один говорит правду, а второй брехун.

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.