1.6 раз
2.1 раз
3.0 раз
4.1 раз
5.7 раз
6.0 раз
var c:array[1..15]of byte;
i,s1,s2,s3:integer; k:boolean;
begin
for i:=1 to 15 do readln(c[i]);
for i:=1 to 15 do begin
if c[i]=0 then inc(s1) else inc(s2);
if c[i]<>0 then k:=true;
if k=false then inc(s3);
end;
writeln(s1,' ',s2,' ',s3);
end.
Если фигура круг то это начало-конец
Если фигура паралелограмм то это ввод -вывод
Если это четырёхуголник то это действие(тоесть вычисления)
В двоичном виде 1111 1001 1011 1001