program P1;
uses
crt;
var
A : array[1..3] of array [1..4] of longint;
i,j : integer;
begin
clrscr;
randomize;
writeln('Massiv : ');
for i := 1 to 3 do
begin
writeln('');
for j := 1 to 4 do
begin
A[i][j] := random(15)+random(5)-random(5);
write(A[i][j]:2,' ');
end;
end;
for i := 1 to 3 do
for j := 1 to 4 do
begin
if A[i][j] > 10 then
A[i][j] := i - j;
if (A[i][j] >= -5) and (A[i][j] <= 5) then
A[i][j] := sqr(i);
end;
writeln('');
writeln('');
writeln('Itogoviy massiv : ');
for i := 1 to 3 do
begin
writeln('');
for j := 1 to 4 do
begin
write(A[i][j]:2,' ');
end;
end;
readln;
readln;
end.
со́товый телефо́н — мобильный телефон, предназначенный для работы в сетях сотовой связи; использует приёмопередатчик радиодиапазона и традиционную телефонную коммутацию для осуществления телефонной связи на территории зоны покрытия сотовой сети.
в настоящее время сотовая связь —
самая распространённая из всех видов мобильной связи, поэтому обычно мобильным телефоном называют именно сотовый телефон, хотя мобильными телефонами, помимо сотовых, являются также спутниковые телефоны, радиотелефоны и аппараты магистральной связи.
сотовый телефон — сложное
высокотехнологичное электронное устройство, включающее в себя: приёмопередатчик на поддиапазоны 1—2 ггц (gsm) и 2—4 ггц (umts) свч-диапазона, специализированный контроллер , дисплей, интерфейсные устройства, аккумулятор. большинство аппаратов имеет свой уникальный номер, т. н. imei — международный
идентификатор мобильного устройства. imei присваивается при производстве сотового телефона и состоит из 15 цифр; он записывается в немодифицируемую часть прошивки телефона. сам этот номер отпечатан на этикетке телефона под аккумулятором, также на коробке (упаковке) от телефона (под штрихкодом). в
большинстве телефонов его также можно узнать, набрав на клавиатуре код *#06#
var
a : array [1..3, 1..4] of integer;
i, j : integer;
begin
for i := 1 to 3 do
for j := 1 to 4 do
a[i, j] := trunc (random (30)) - 10;
for i := 1 to 3 do
for j := 1 to 4 do
if a[i, j] > 10 then a[i, j] := i - j;
for i := 1 to 3 do
for j := 1 to 4 do
if (a[i, j] <= 5) and (a[i, j] >= -5) then a[i, j] := sqr (i);
for i := 1 to 3 do
begin
for j := 1 to 4 do write (a[i, j]:4, ' ');
writeln;
end;
readln;
e