В т.к. учебники математики принадлежат множеству всех книг
Искусственный интеллект— это наука и технология создания интеллектуальных машин Особенно интеллектуальных компьютерных программ
Папка Рабочий стол является вершиной иерархической файловой системы
var
x, y: real;
k: integer;
begin
k := 0;
Read(x, y);
while (x <> 0) or (y <> 0) do
begin
if (x < 0) and (y > 0) then
k := k + 1;
Read(x, y)
end;
Writeln(k);
end.
// PascalABC.NET 3.0, сборка 1073
var
Bag,Bagaj:array[1..2] of longint;
begin
Bagaj[1]:=5; Bagaj[2]:=43600;
{ перенос Bagaj -> Bag }
Bag[1]:=Bagaj[1]; Bag[2]:=Bagaj[2];
Writeln('Предметов- ',Bag[1],', общий вес ',Bag[2]);
Bag[1]:=4; Bag[2]:=24540;
{ перенос Bag -> Bagaj }
Bagaj[1]:=Bag[1]; Bagaj[2]:=Bag[2];
Writeln('Предметов- ',Bagaj[1],', общий вес ',Bagaj[2]);
end.
<em><u>Тестовое решение:</u></em>
Предметов- 5, общий вес 43600
Предметов- 4, общий вес 24540