Program blabla;
const N = 100;
var i, k: integer;
a: array [1..N] of integer;
begin
k:=0;
readln(a);
for i:=1 to N do
if (a[i] mod 2 >< 0) and (a[i-1] mod 2 >< 0) then
k:= k+1;
writeln(k);
end.
Var A,B,S:array[1..62] of real;i,j,k:integer;n,m:real;Year,Month, Day, Wk : Word;
begin
Year:=2015;Month:=07; Day:=01;
randomize;
for j:= 1 to 2 do begin
if j= 2 then Month:= Month + 1;
for I:= 1 to 31 do begink:= k +1;
n:= Round((random()*100 +1) *100);
m:= Round((random()*150 +1) *100);
A[k]:= n / 100;
B[k]:= m / 100;
S[k]:= A[k] + B[k];Day:= I;
write(Day, '.',Month, '.',Year);writeln(' ', A[k]:8, B[k]:8, S[k]:9);end;
end;<span>end.</span>
Если каждую операцию записывать в таблицу (ничего в уме не считать), то:
1) 2+4 = 6
2) 3+4 = 7
3) 3+2 = 5
Если вычисления делать в уме, то:
1) 2+1 = 3
2) 3+1 = 4
3) 3+1 = 4
<span>Понятие множества, подобно понятиям точки, числа и т.д., не сводится к другим понятиям математики и не определяется. Вместо определения этого понятия приведем примеры. Можно говорить о множестве всех учеников данной школы, о множестве всех людей на Земле, о множестве всех клеток человеческого тела, о множестве всех картофелин на картофельном поле, о множестве всех треугольников на плоскости, множестве целых числе, множестве всех точек данного квадрата и т.д.</span>