Свойства книги:
Ее можно читать, когда тебе скучно. она может порваться, если с ней плохо обращаться.
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var a,b:integer; Read(a,b);
Writeln(max(a,b) mod min(a,b))
end.
Правда, не пойму, зачем ограничиваться числом 100?
Ответ:
program abc;
var n,m,k,b:integer;
begin
readLn(n,m,k);
if k mod m <> 0 then b:=Trunc(k/m)+1 else b:=k div m;
if b mod 2<>0 then writeLn(b)
else if b>=n then writeLn(b-1);
if (b mod 2=0) and (b<>n) then writeLn(b+1);
end.
Объяснение:
<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,0,10); a.Println;
Writeln('Результаты в форме "(элемент, число повторов)")');
a.GroupBy(t->t).Select(t->(t.Key,t.Count)).Where(t->t[1]>1)
.OrderBy(t->t[0]).Println(NewLine);
end.
<u>Пример</u>
6 9 1 2 10 8 6 3 7 7 9 5 5 7 10 2 9 3 2 7
Результаты в форме "(элемент, число повторов)")
(2,3)
(3,2)
(5,2)
(6,2)
(7,4)
(9,3)
(10,2)