Понятно, что число должно быть ОТРИЦАТЕЛЬНЫМ, поскольку, если оно положительное, например равно 2 получаем
2, 2, 5. Но это НЕУБЫВАЮЩИЙ ряд.
Тогда пусть X=-10
Получаем:
-10, 10, 101
Теперь пусть Х = - 1/2.
Получаем
-1/2, 1/2, 5/4.
Очевидно в программе будет строчка:
Writeln(x, ' ', -x, ' ', 1+x*x);
Если условие записано верно, то таблица истинности имеет такой вид (но само выражение не тождественно истинное!):
Сколько можно передать букв за 3 секунды по каналу связи с пропускной способностью канала 2000 бит/сек
2000*3/8=750 однобайтовых символов
Сколько в среднем можно передать букв русского текста в секунду по каналу с пропускной способностью С = 1000 двоичных единиц/cек?
33 буквы
32 = 2^6, 6 бит на букву
1000/6 = 125 букв
Определите битовые представления для следующих чисел: 5; 13; 21; 27.
101
1101
10101
11011
// PascalABC.NET 3.3
begin
var a:=ArrRandom(8,-30,30); a.Println;
writeln('Положительных: ',a.Where(x->x>0).Count);
writeln('Отрицательных: ',a.Where(x->x<0).Count);
end.
Пример:
19 17 -1 21 -23 -13 20 24
Положительных: 5
Отрицательных: 3
Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do
begin readln(a[i]);
end;
for i:=1 to 10 do
begin
for j:=i+1 to 10 do
begin
if a[i]=a[j] then ans:=ans+1;
end;
end;
if ans>0 then writeln('есть')
else writeln('нет');
end.<span> </span>