<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! В других версиях языка работа не гарантируется!</em>
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив A[',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
Writeln(4*a.ColCount*'-');
var k:=a.Rows.Select(x->x.Aggregate(0,(x,y)->x+y)).ToArray.IndexMax;
for var j:=0 to (n-1) div 2 do Swap(a[k,j],a[k,n-1-j]);
a.Println(4)
end.
<u>Пример</u>
Количество строк в массиве: 4
Количество столбцов в массиве: 5
*** Исходный массив A[4,5] ***
29 36 -50 -4 -32
-1 -10 -7 -47 -50
-16 4 48 -41 -43
8 46 45 14 -44
--------------------
29 36 -50 -4 -32
-1 -10 -7 -47 -50
-16 4 48 -41 -43
-44 14 45 46 8
К моменту завершения K-го урока пройдёт K собственно уроков и (K - 1) перемена. Вычисляем продолжительность в минутах, делим с остатком на 60 - число минут в часе - и получаем количество часов и минут, которые пройдут с начала занятий. Остаётся прибавить к этому 8 часов - время начала занятий - и вывести ответ.
python 3:
MINS_IN_HOUR = 60
mins_in_class, mins_in_break = 45, 5
start_hour = 8
k = int(input())
total_mins = k * mins_in_class + (k - 1) * mins_in_break
hour, mins = divmod(total_mins, MINS_IN_HOUR)
print(hour + start_hour, mins)
Var n,I,c:integer;
begin
c:=0;
read(n);
for i:=1 to n do
if (i mod 2 != 0) and (i mod 3 != 0) and (i mod 5 != 0) then c:=c+1;
write(c);
end.
проверь в компиляторе, я Паскаль плохо помню, не уверен
Так как у Коли по условию задачи 2 ряд, значит нумерация рядов на схеме будет сверху вниз. А это означает, что Петя сидит на 3 ряду.
Далее в условии задачи сказано, что Коля сидит на 3 месте, значит нумерация мест идет справа налево, а это означает, что номер места у Пети — 5.
Петя сидит в 3 ряду на 5 месте.
Прикладные программы непосредственно обеспечивают выполнение необходимых работ (расчёты, редактирование текста, рисование и пр.)
<u>Microsoft Excel, Corel Draw, Adobe Photoshop, Microsoft Office World (Power Point и т.д.)
</u>Системные программы выполняют различные вспомогательные функции (создание копий, проверка работоспособности и пр.)
<span><u>Windows , Novell , Mac OS</u></span>