Номер 17, ответ 9
А ещё у вас ошибка вроде в 18
-это 1. растровая графика
Uses GraphABC;
begin
line(300,50,300,450);
line(150,250,550,250);
line(300,50,295,60);
line(300,50,305,60);
line(550,250,540,245);
line(550,250,540,255);
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=70;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество нулей на нечетных местах: ',
Range(0,n-1,2).Select(i->a[i]).Where(t->t=0).Count)
end.
<u>Пример</u>
0 2 1 2 2 0 2 1 2 2 2 2 1 1 2 2 2 2 1 2 2 2 0 2 0 0 2 0 2 0 0 2 2 0 2 1 1 0 0 2 0 2 0 1 2 2 0 2 0 0 2 0 2 1 1 0 2 1 2 1 0 2 1 2 1 0 0 1 2 1
Количество нулей на нечетных местах: 11
- - - - - - - - - -
begin
var n:=35;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество единиц на четных местах: ',
Range(1,n-1,2).Select(i->a[i]).Where(t->t=1).Count)
end.
<u>Пример</u>
1 2 0 0 1 1 2 1 1 1 0 2 1 2 2 1 1 1 0 1 0 0 2 2 2 1 2 1 2 2 1 2 0 1 1
Количество единиц на четных местах: 9
Апрель май июнь июль значит май