begin
var a := ArrRandom(30, 10, 99);
a.println;
writeln(a.Where(x -> (x mod 17 = 0)).DefaultIfEmpty.Aggregate(1, (i, j)-> i * j));
<span>end.
</span>
У тебя немного неверная запись, но я поправил:
=(51+172)-2*(80/(6+11))
<h2>Ответ</h2>
213.588
Ответ: В бутылке лимонад, в стакане вода, в кувшине молоко, в банке квас.
Известно, что вода и молоко не в бутылке (в столбце Бутылка, напротив Воды и Молока ставим 0)
а сосуд с лимонадом находится между кувшином и сосудом с квасом (лимонад и квас не в кувшине, в столбце Кувшин, напротив Лимонад и Квас ставим 0)
в банке – не лимонад и не вода (в столбце Банка, напротив Лимонада и Воды ставим 0)
Стакан находится около банки и сосуда с молоком (молоко не в стакане и не в банке, в столбце Стакан, напротив Молока ставим 0, в столбце Банка, напротив Молока ставим 0)
В столбце Банка три 0. (Ставим 1 в столбце Банка, напротив Кваса, ставим 0 в других столбцах, напротив Кваса)
В строке Молоко три 0. (Ставим 1 в столбце Кувшин, напротив Молока, ставим 0 в столбце Кувшин, напротив Воды)
В столбце Бутылка три 0. В строке Вода три 0. (Ставим 1 и 0 в нужные места)
Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v+1;
end
else if i mod 2<>0 then v:=v+1;
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.
Все работает я проверил