Впаскале: идёт k-я секунда суток. определить который сейчас час (в часах, минутах и секундах например, если k=13257=3*3600+40*60+57, то часов - 3, минут - 40, секунд - 57.

Var k,h,m,s: integer; begin write('введите число секунд: '); readln(k); h: =k div 3600; k: =k mod 3600; m: =k div 60; s: =k mod 60; writeln('часов: ',h); writeln('минут: ',m); writeln('секунд: ',s); end.

1. короткое решение для числа произвольной длины (на символьной строке) var   s: string;   c: char; begin   write('введите натуральное число: ');   readln(s);   write('введите искомую цифру: ');   readln(c);   if pos(c,s)> 0 then       writeln('такая цифра в числе есть')   else       writeln('такой цифры в числе нет') end. тестовое решение введите натуральное число: 43543232 введите искомую цифру: 4 такая цифра в числе есть 2. более традиционное решение с целочисленными переменными var   s,c: integer;   brk: boolean; begin   write('введите натуральное число: ');   read(s);   write('введите искомую цифру: ');   read(c);   brk: =false;   repeat       if s mod 10=c then brk: =true;       s: =s div 10   until brk or (s=0);   if brk then       writeln('такая цифра в числе есть')   else       writeln('такой цифры в числе нет') end. тестовое решение введите натуральное число: 43543232 введите искомую цифру: 6 такой цифры в числе нет

Ответ: отложим в сторону тринадцатую монету, а остальные обозначим следующим образом: fake mind clot теперь взвешиваем одну четверку против другой по такой схеме: 3 монеты принимают участие в трех взвешиваниях 3 - только в одном 6 - в двух. например: fano - kect, aknc - fmdl, fkil - adot например, если результаты взвешивания будут такими: слева легче, равно, слева тяжелее, значит фальшивой будет монета, обозначенная буквой o. причем, фальшивая монета будет легче настоящих. а что если фальшивой окажется все-таки отложенная нами, тринадцатая монета? все просто: в этом случае при всех трёх взвешиваниях весы будут . к сожалению в этом случае нам не узнать легче или тяжелее тринадцатая монета, но в условии такого требования и не было.