<span><span><span> 1
</span><span>
1
2
</span><span>
2
4
</span><span>
3
8
</span><span>
4
16
</span><span>
5
32
</span><span>
6
64
</span><span>
7
128
</span><span>
8
256
</span><span>
9
512
</span><span>
10
1024
</span></span></span>
//Pascal ABC.NET v3.0 сборка 1111
//"Школьный" вариант, первая блок-схема
Var
a,b,c:integer;
begin
read(a,b,c);
if (a=b) and (b=c) then writeln('=') else
begin;
if a>b then
if a>c then writeln(a);
if b>a then
if b>c then writeln(b);
if c>a then
if c>b then writeln(c);
end;
<span>end.
//Вариант для любителей оккультизма, вторая блок-схема
begin
var se:=ReadArrReal(3);
if se.Sum()/se.Average()=se.Average() then writeln('=') else writeln(se.Max);
end.<span>
Пример ввода:
3
3
3
Пример вывода:
=</span></span>
Пусть размеры прямоугольного отверстия а - ширина, h - высота
Сначала среди размеров X, Y, Z - ищем самое большое: RazMax.
Если RazMax <a, (пусть это будет Z), то
среди Х и Y подбираем такое, чтобы оно меньше или равно h
Eсли RazMax > a, то среди X и Y ищем НАИБОЛЬШЕЕ.
Если это НАИБОЛЬШЕЕ меньше ширины, то проверяем, чтобы среди оставшихся измерений хотя бы одно было меньше или равно h.
Если все это не годится, то кирпич не пролезет в это отверстие...
Вход МАТЕМАТИКА
Шаг1 отбростиь последнюю букву МАТЕМАТИК
Шаг 2 Отбросить все буквы кроме трёх последних ТИК
Шаг 3 Записать буквы в обратном порядке КИТ
Выход КИТ
1. <span>var N, k: real; </span>
<span>begin </span>
<span>readln(N); </span>
<span>if (N<0) then k:= 0 </span>
<span>else </span>
<span>begin </span>
<span>if (frac(N)=0) then k:=N*2 </span>
<span>else k:=(trunc(N)+1)*2; </span>
<span>end; </span>
<span>writeln(k); </span>
<span>end.
2. </span><span>Первый хулиган увеличивал количество кусочков на 3
Второй - на 6
То есть, всего кусочков должно быть N = 1 + 3m + 6n
Значит, N - 1 должно делиться на 3
и наоборот, если N - 1 делится на 3
N - 1 = 3k
то возможна ситуация, когда Первый хулиган рвал k раз,
а Второй наблюдал (ничего не рвал).
Алгоритм свёлся к проверке:
Если N -1 не делится на 3, то No
КОНЕЦ</span>