Задание 11
Чтобы упростить подсчет разделим на две подзадачи
1) кол-во путей А->Г
2) кол-во путей Г->М
1) =3
АБГ
АГ
АДГ
2) =11
ГВИМ
ГВЕИМ
ГВЕМ
ГВЕКМ
ГЕИМ
ГЕМ
ГЕКМ
ГЖЕИМ
ГЖЕМ
ГЖЕКМ
<span>ГЖКМ
ответ: 3*11=33
Задание 13
ПРАВИЛА:
1) В конце A,B,C
2) В начале B,D,C и нет в конце
3) В середине A,C,E,B и нет в начале
CBB подходит под все правила
EAC не подходит из-за правила 2
CAA </span>подходит под все правила<span>
BCD </span>не подходит из-за правила 1<span>
CAB </span>подходит под все правила<span>
BCB </span>не подходит из-за правила 2<span>
BCC </span>подходит под все правила<span>
ABC </span>не подходит из-за правила 2<span>
CBA </span>подходит под все правила
Ответ: 5 цепочек созданы по правилам
№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.
К-во пикселей 2048*1024=2097152
64 цвета следовательно один пиксель -6 бит
2097152*6=12582912 бит/8=1572864 байта/1024=1536Кбайт
//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>
Чтобы с помощью фотошопа, измерять нужные виртуальные размеры, а потом уже, воплатить в жизнь.
Словарь если не поняла
Виртуальные- не реальные
Фотошоп- программа
Воплатить- сделать, создать
Поблагодари пож на страничке))