16 (одиночных) + 7 (из 4 триугольников) + 3 (из 9 триугольников) + 1 (большой) = 27
//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>
1.
var a,b,i,n,min:integer;
begin
writeln('Input value');
read(a);
min:=a;
for i:= 1 to 2 do begin
writeln('Input value');
read(a);
if min>a then min:=a;
end;
writeln('min = ',min);
<span>end.
2.
var a,b,c:integer;begin
writeln('Input a');
read(a);
writeln('Input b');
read(b);
writeln('Input c');
read(c);
a:=a*b*c;
writeln('prod = ',a);
end.<span>
</span></span>
X мальчиков и у девочек
всегда можно рассадить требуемым образом, кроме если количество мальчиков больше удвоенного числа девочек или если количество девочек больше удвоенного числа мальчиков
х - число мальчиков
у - число девочек
если х > 2*у - ответ НЕТ, ВЫХОД
иначе
{ если у > 2*х - ответ НЕТ, ВЫХОД
иначе - ответ ДА, ВЫХОД
}
1)
П0 1 ВП 3 / [x] П1 С/П П0 ИП1 1 ВП 3 * - С/П
Инструкция: граммы В/О С/П. Результат: килограммы С/П граммы.
2)
^ 1 ВП 4 / [x] С/П
Инструкция: ары С/П.
