Оля, Таня, Юля и Ира варили варенье. Две девочки варили его из смородины, две девочки – из крыжовника. Таня и Ира варили варенье из разных ягод. Ира и Оля тоже варили его из разных ягод. Ира варила варенье из крыжовника. Из каких ягод варила варенье каждая девочка?

Таня и Оля варили варенье из смородины, а Юля и Ира варили варенье из крыжовника.

Объяснение:

Если Ира варила из других ягод чем с Олей и Таней, то Таня и Оля варили из одних и тех же ягод. Если Ира варила варенье из крыжовника то Таня и Оля варили из смородины. И у нас остается Юля. Так как уже две девочки варят варенье из смородины ( это Таня и Оля ), то соответственно Юля варила варенье вместе с Ирой.

Var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>7 then begin a[i]:=7; k+=1; end;
end;
writeln(k);
for i:=0 to n-1 do
write(a[i],' ');
end.

var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
read(a[i]);
p*=a[i];
end;
writeln(p);
end.

var a:array of integer;
i,sr,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
sr+=a[i];
end;
writeln(sr/n:3:2);
end.

var a:array of integer;
n,i,k:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if a[i]>0 then k+=1;
end;
writeln(k);
end.

var a:array of integer;
n,i,k1,k2:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
if odd(a[i]) then k2+=1
else k1+=1;
end;
writeln(k1,' ',k2);
end.

Відмінності виконання повного і неповного розгалуження: 1) обчислюється значення логічного виразу, якщо це значення істинне (True), то у повному розгалуженні виконується послідовність команд і після цього виконується команда, наступна за розгалуженням, а у неповному — виконується послідовність команд і після цього виконується команда, наступна за розгалуженням; 2) якщо це значення хибне (False), то у повному розгалуженні виконується послідовність команд 2 і після цього виконується команда, наступна за розгалуженням, а у неповному — відразу виконується команда, наступна за розгалуженням.