1)съедобное и не съедобное
2)районы
3)продукты
Var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>
</h3><h3 />
begin
MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)
.SelectMany(t->t).Min.Println;
end.
<em><u>Пример в приложении.</u></em>
1445г. изобрел германский ювелир Иоганн Гутенберг.
Program chisla;
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (a>99) or (a<10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.