Uses Crt,GraphABC;var i,n,q,c:integer;beginhidecursor;Writeln('Введите количество досок N:');Read(n);clearwindow;For I:=1 to n dobeginc:= clyellow;SetPenColor(c);SetPenWidth(2);q:=40*i;MoveTo(100+q,340);LineTo(100+q,130);LineTo(120+q,100);LineTo(140+q,130);LineTo(140+q,340);LineTo(100+q,340);floodfill(100+q+10,200,c);<span>end;</span>
Var n, digit, ans : integer;
begin
read(n);
ans := 0;
while (n > 0) do begin
digit := n mod 10;
if ((digit = 1) or (digit = 3) or (digit = 9)) then
ans := ans + 1;
n := n div 10;
end;
writeln(ans);
<span>end.</span>
Ответ:
Граф под номером 2
Объяснение:
Из пункта В есть 4 пути.
Рассмотрим графы по очереди:
1) на первом графе из пункта В 4 пути, он может нам подойти;
2) на втором графе из пункта В 4 пути, он может нам подойти;
3) на третьем графе из пункта В 3 пути, он не может нам подойти;
4) на четвертом графе из пункта В 3 пути, он не может нам подойти.
В дальнейшем будем рассматривать только 1 и 2 графы, так как 3 и 4 нам уже не подходят.
Из пункта Е есть 3 пути.
Рассмотрим графы по очереди:
1) на первом графе из пункта Е 2 пути, он не может нам подойти;
2) на втором графе из пункта Е 3 пути, он может нам подойти.
В дальнейшем будем рассматривать только 2 граф, так как 1, 3 и 4 нам уже не подходят.
Проверим соответствуют ли расстояния между пунктами указанным в таблице. Расстояния соответствуют.
Ответ:
CD AC3 DVD-AUDIO MP3 AAC WMA
Объяснение: