Var i,d:integer;
n:array[1..3] of integer;
begin
writeln('Введите диапазон( от 0 до ...)');
readln(d);
randomize;
for i:= 1 to 3 do
beginn[i]:=random(d+1);
writeln(n[i]);
end;
if n[1]= n[2]+n[3] then
writeln('YES')
else
writeln('NO');
end.<span>
</span>
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var m:=Readinteger('Что ищем?');
var k:=a.FindAll(x->x=m).Count;
Writeln('Найдено таких элементов- ',k);
if k>0 then Writeln('Номер первого такого элемента- ',
a.FindIndex(x->x=m)+1)
end.
<u>Пример</u>
n= 17
-46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9
Что ищем? -9
Найдено таких элементов- 2
Номер первого такого элемента- 3
Ответ:
1)Байт, килобайт, мегабайт, гигабайт и т.д
2)Информационный объем сообщения это - кол-во двоичных символов, которое используется для кодирования этого сообщения.
3)Бит - это единица измерения количества информации.
4)Скорость передачи информации - это объем данных, передаваемый за единицу времени.
алгоритм использует два одновременных массива: а (3,6,5,2,1,4) и b(3,1,5,6,2,4) формирует и выводит координаты (i,j) 100 точек.
Виталя288 [409]
Ответ будет 50 таких точек.
Если хочешь проверь.
#include <iostream>
using namespace std;
void main()
{
setlocale(NULL, "russian");
int A[6] = { 3, 6, 5, 2, 1, 4 },
B[6] = { 3, 1, 5, 6, 2, 4 },
i = 1,
j = 3,
sum = 0;
for (int z = 0; z < 100; z++){
i = A[i - 1];
j = B[j - 1];
if (i <= 4 && j <= 4)
sum++;
}
cout << sum << endl;
system("pause");
};
Другое название этого закона - дистрибутивный. Происходит от латинского слова distributivus - распределительный.