// PascalABC.NET 3.3
begin
var n:=ReadInteger;
var a:=ReadSeqInteger(n);
print(a.Where(x->(x mod 7=0)and(x mod 5<>0)).Count);
end.
Пример:
5
35 70 45 9 105
0
Перевод целой части. Для того, чтобы перевести число из десятичной системы счисления, в любую другую, нужно выполнять целочисленное деление исходного числа на основание той системы счисления, в которую нужно перевести число. При этом важен остаток от деления и частное. Частное нужно делить на основание до тех пор, пока не останется 0. После этого все остатки нужно выписать в обратном порядке - это и будет число в новой системе счисления.<span />
1) яблоки красные все, и это сообщение не несет никакой информации.
Ответ: 0 бит
2)1280×1024×8=10485760бит=1310720байт=1280Кбайт=1.25Мбайт
Область выше прямой → y >= 2*x
Правее оси ординат → x >= 0
Внутри окружности → y*y+x*x <= 4
(Формула окружности: x^2+y^2 = R^2
x*x +y*y = R - точка на окружности
x*x +y*y > R - точка вне окружности
x*x +y*y < R - точка внутри окружности)
Условия (y >= 2*x), (x >= 0) и (y*y+x*x <= 4) должны выполняться все вместе, поэтому между ними "and".
(Если было бы достаточно, чтоб выполнялось одно из данных условий, вместо "and" было бы "or". or не исключает, что могут выполняться все условия сразу.)
Ответ: (y >= 2*x)and(x >= 0)and(y*y+x*x <= 4).
1)
var
a:array[1..16] of integer;
i,k,s:integer;
begin
randomize;
For i:= 1 to 16 do
begin
a[i]:= -30+random(61);
write(a[i], ' ');
end;
For i:= 1 to 16 do
if a[i] < 0 then k:= k+1;
Writeln;
Writeln(k);
end.
Пример:
-21 4 -11 30 -16 -7 26 -14 -20 10 -18 8 -26 -13 -20 -15
11
2)
Изменить условие "if a[i] < 0 then k:= k+1;" на "if a[i] > 0 then s:= s +a[i];"
и "writeln(k);" на "Writeln(s);"