// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 const КолСтрок=3; КолСтолбцов=5; begin var Массив: array [1..КолСтрок,1..КолСтолбцов] of integer; var СуммыПоСтрокам: array[1..КолСтолбцов] of integer; Writeln('Введите элементы массива (',КолСтрок,',', КолСтолбцов,') построчно:'); for var строка:=1 to КолСтрок do for var столбец:=1 to КолСтолбцов do begin Read(Массив[строка,столбец]); СуммыПоСтрокам[строка]+=Массив[строка,столбец] end; Writeln('Суммы построчно:'); for var строка:=1 to КолСтрок do Print(СуммыПоСтрокам[строка]) end.
Задача 1.Разделим монеты на 3 кучки по 9 монет. Положим на чаши весов первую и вторую кучки; по результату этого взвешивания мы точно узнаем, в какой из кучек находится фальшивка (если весы покажут равенство, то она - в третьей кучке). Теперь, аналогично, разделим выбранную кучку на три части по три монеты, положим на весы две из этих частей и определим, в какой из частей находится фальшивая монета. Наконец, остается из трех монет определить более тяжелую; кладем на чаши весов по 1 монете -фальшивкой является более тяжелая; если же на весах равенство, то фальшивой является третья монета из части.
Задача 2. 1). Наполняем (4), переливаем в (3), в (4) остался 1л. 2). Выливаем из (3), переливаем из (4) в (3), теперь в (3) 1л 3). Наполняем (4) и переливаем в (3) до заполнения. т.е. 2л. В (4) останется 4-2=2л.
+: можно найти информацию.
+: можно скачать файлы
+: можно сделать бизнес
-: использует вай фай
-: Имеет вирусы
-: Есть хакеры
Объяснение: