1. Линейный - простые алгоритмы (т.е. без проверки условий)
2. Алгоритм с ветвлением - в зависимости от выполнения и невыполнения условий
3. Циклический - блоки алгоритма вып. до тех пор, пока не будет выполнен определенное условие.
4. Комбинированный - алгоритмы могут состоять из простых команд, команд ветвления и цикла.
<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
В Unicode каждый символ кодируется двумя байтами, считая пробелы и знаки препинания. В приведённом предложении нет точки в конце. (А должна быть!). Подсчитайте количество символов, умножьте на 2, это и будет ответ.
# Python 3.X
from math import ceil
n, m = [int(input(x + ' = ')) for x in ['n', 'm']]
print('Ответ:', ceil(m / n))