Итак, вначале напишем число 74 из которого в итоге должны получить 0.
Вот что получилось у меня.
74|:2
37|-1
36<span>|:2
18</span><span>|-1
17</span><span>|-1
16</span><span>|-1
15</span><span>|-1
14</span><span>|:2
7</span><span>|-1
6</span><span>|:2
3</span><span>|-1
2</span><span>|:2
1</span><span>|-1
Следуя этому получаем: 2121111212121 </span>
Юра занимается регби и учиться на юриста. Влад занимается теннисом и через год будит физиком. Тимур занимается бегом и учиться на врача.
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача М</em>
begin
var a:=ReadInteger.ToString.AdjacentGroup;
var f:=False;
foreach var g in a do
if g.Count>1 then begin
Write('YES'); f:=true; break
end;
if not f then Write('NO')
end.
<u>Примеры</u>
5221
YES
1232
NO
<em>Задача О</em>
begin
var s:=ReadInteger.ToString;
if s.Length<>(s.Distinct).Count then Write('YES')
else Write('NO')
end.
<u>Примеры</u>
212
YES
12345
NO
Program n1;
var a: real;
begin
write('введите мили: ');
readln(a);
writeln('это ',a*1.6 ,' километров');
end.