40*1024=40960 - Мбайт на жестком диске
40960/600 = 68,26, округляем в большую сторону, т.е
69 дисков потребуется
N=int(input())
h=n//3600 #кол-во часов
n=n%3600 #остаток после вычета часов
m=n//60 #кол-во минут
s=n%60 #остаток после вычета минут - секунды
h=str(h)
m=str(m)
if len(m)==1:
m='0'+m #отступ 4 пробела от начала строки
s=str(s)
if len(s)==1:
s='0'+s #отступ 4 пробела от начала строки
print(h+':'+m+':'+s)
#9:
bool res = (A % 2 != 0 || B % 2 != 0);
#10:
bool res = (A % 2 != 0 && B % 2 == 0 || A % 2 == 0 && B % 2 != 0);
#11:
bool res = (A % 2 == B % 2);
#12:
bool res = (A >= 0 && B >= 0 && C >= 0);
#13:
bool res = (A >= 0 || B >= 0 || C >= 0);
#14:
bool res = (A >= 0 && B <0 && C < 0 || A < 0 && B >= 0 && C < 0 || A < 0 && B < 0 && C >= 0);
#15:
bool res = (A >= 0 && B >= 0 && C < 0 || A >= 0 && B < 0 && C >= 0 || A < 0 && B >= 0 && C >= 0);
#16:
bool res = (A % 2 == 0 && A % 10 != 0 && A % 100 == 0);
#17:
bool res = (A % 2 != 0 && A % 100 != 0 && A % 1000 == 0);
#18:
bool res = (A == B || A == C || B == C);
#19:
bool res = (A + B == 0 || A + C == 0 || B + C == 0);
var
a, m : integer;
begin
writeln('введите 8 чисел');
read(m);
for var i := 2 to 8 do begin
read(a);
if a > 0 then if a < m then m := a;
end;
writeln('наименьшее из чисел = ', m);
end.
0 не учитывается, если 0 тоже считать как положительное число то
"if a > 0" нужно заменить на "if a >= 0"
Условие попадания точки M(x,y) в треугольник с указанными координатами вершин можно описать системой неравенств:
Если положить в методе Монте-Карло x∈(-1,1), y∉(0,1) для вещественных х,y,
то площадь треугольника можно найти, как площадь прямоугольника, представленного в задании (она равна 2), умноженную на отношение количества точек, попавших в контур треугольника, к общему количеству точек.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=100000;
var k:=Range(1,n).Select(e->Rec(2*Random()-1,Random())).
Where(e->(e.Item2>=0) and (e.Item2<=e.Item1+1) and
(e.Item2<=1-e.Item1)).Count;
Writeln(2*k/n:0:3)
end.
<u><em>Тестовое решение:</em></u>1.001