Надо! обчислити значення виразів: 1. odd(6)2. odd(3)3. succ(10)4. pred(7)5. sqr(2)6. sqrt(16)7. trunc(6.9); round(6,9); int(6.9); 8. trunc(-1.8); round(-1.8); int(-1.8);

из всех монет в меньшей стороне всегда присутствует v6,

в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных

640*480*3*8/28800 секунд

var a,b,c: integer;

begin

  writeln('введите 3 целых числа');

  read(a,b,c);

  write('среди трех данных чисел есть хотя бы одна пара ');

  if (a=b) or (a=c) or (b=c) then write(' - выражение истинно') else write(' - выражение ложно');

end.

{первая }var  s, rez: string;   // строки  i: integer;   // целое число (счетчик)begin  writeln('введите строку: ');   readln(s);   //  for i : = length(s) downto 1 do  // просматриваем буквы, начиная с последней      rez : = rez + s[i];   // прибавляем букву к результату  writeln(rez)  // выводим результатend.