Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.
Bluetooth - радиоволны высокой частоты. Ик порт- аналогично только в оптическом диапазоне (инфракрасном) вместо передатчика ИК- светодиод, вместо приемника - фотодатчик
На рисунке большой круг включает в себя два маленьких. Так как города в Англии и столичные европейские города все являются европейскими городами, то множество а включает в себя множества б и в, большой круг - множество а. Его элементы: Манчестер, Ливерпуль, Лондон, Москва, Париж, Мадрид, Венеция, Брест, а также многие не указанные на рисунке города, например, Кардифф, Женева, Милан.
Оставшиеся два круга представляют города в Англии и европейские столицы. Так как в множество, отвечающее левому кругу, входят Манчестер, Ливерпуль и Лондон, то это города Англии. В это множество входят и другие города, например, Кардифф.
Правому кругу, в котором записаны Лондон, Москва, Париж и Мадрид, остаётся только множество европейских столиц. В это множество входит также Женева и другие города.
Ответ без решения,пока что.
<span>uses crt;
var a:array[0..50,0..50]of integer;
i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i,0]:=i;
a[0,i]:=i;
end;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=i*j;
end;
for i:=0 to n do
begin
for j:=0 to n do
begin
if (i=0) or (j=0) then
textcolor(lightgreen)
else
textcolor(white);
write(a[i,j]:4);
end;
writeln;
end;
end<span>.</span></span>
Язык программи́рования — формальный язык, предназначенный для записи компьютерных программ[1][2]. Язык программирования определяет набор лексических, синтаксических и семантических правил, определяющих внешний вид программы и действия, которые выполнит исполнитель (обычно — ЭВМ) под её управлением