АминаИван
?>

Расстояние передачи данных Bluetooth?

Информатика

Ответы

victors

Радиус около 10 м.

Объяснение:

Грудинин604

Объяснение:

Текст "В Лесу" Как красиво в осеннем лесу! Каждое дерево имеет свой особенный наряд. Пожелтели листья берёзы. Покраснели листья клёна и осины. Листья дуба стали тёмно-зелёными. Осенью в лесу спокойно. Звери попрятались:готовятся к зиме. Птицы кричат высоко в небе. Они собираются в стаи, чтобы лететь на юг. Солнце еще греет, но воздух уже холодный. По прозрачному небу бегут облака.

<!DOCTYPE html>

<html>

<head>

 <meta charset="utf-8">

 <title>"В Лесу"</title>

 <style>

 h2{

   text-align: center;

  }

  p{

  text-align: center;

    }

 </style>

</head>

<body>

<h2><b><i>Текст "В Лесу"</b></i></h2>  

<p><font size="4" color="Red" face="Arial">Как красиво в осеннем лесу!</font></p>

<p><font size="4" color="Orange" face="Arial">Каждое дерево имеет свой особенный наряд.</font></p>

<p><font size="4" color="Yellow" face="Arial">Пожелтели листья берёзы.</font></p>

<p><font size="4" color="Green" face="Arial">Покраснели листья клёна и осины.</font></p>

<p><font size="4" color="Cyan" face="Arial">Листья дуба стали тёмно-зелёными.</font></p>

<p><font size="4" color="Blue" face="Arial">Осенью в лесу спокойно.</font></p>

<p><font size="4" color="Purple" face="Arial">Звери попрятались:готовятся к зиме.</font></p>

<p><font size="4" color="red" face="Arial">Птицы кричат высоко в небе.</font></p>

<p><font size="4" color="Orange" face="Arial">Они собираются в стаи, чтобы лететь на юг.</font></p>

<p><font size="4" color="Yellow" face="Arial">Солнце еще греет, но воздух уже холодный.</font></p>

<p><font size="4" color="Green" face="Arial">По прозрачному небу бегут облака.</font></p>

</body>

</html>

Vladstreletskiy
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида

//PascalABC.Net

function NOD(A, B: integer): integer;
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

procedure pNOD(A, B: integer; var NOD: integer);
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

begin
    var a: Array of integer := (16, 32, 40, 64, 80, 128);
    var n := a[low(a)];
    for var i := low(a) to high(a) do
        pNOD(n, a[i], n);
   
    Writeln(n);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Расстояние передачи данных Bluetooth?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Кириллов57
Galinova2911
stendpost
Галина-Юлия1292
subbotinlan
qwerty
missvita
Petrakova Ilyushin
YaroslavSerganYS5
Pavel1545
NIKOLAI
didizain
mv7095
onboxru16
Ioanova Korneeva1093