Встанови, який шаблон відповідає умові завдання: на малюнку 13.10 — кількість повторень відома — 3 рази, а на малюнку 13.11 — кількість повторень не відома. Повторення завершиться в тому разі, коли посудина буде заповнена.
3. Обери зі списку команди й умову та заповни шаблони:
набрати 1 л рідини, вилити рідину в посудину, кількість повторень дорівнює 3, посудина повна.
begin
var count := 0;
var a := Range(ReadInteger('a='), ReadInteger('b='))
.Select(t -> t.ToString.JoinIntoString(' ').ToIntegers)
.Where(t -> t.Count.IsEven);
foreach var x in a do
begin
var (b, i) := (true, 0);
while (b) and (i < x.Length - 1) do
begin
if (x[i].IsOdd and x[i + 1].IsOdd) or (x[i].IsEven and x[i + 1].IsEven)
then b := false;
inc(i, 2);
end;
if (i = x.Length) and (b) then inc(count);
end;
count.Println;
end.