Uses crt;
var r: array [1..10] of integer;
nev, n, min,i, zap:integer;
begin
clrscr;
write('Введите возраст невесты: '); readln(nev);
write('Введите число женихов: '); readln(n);
if n<2 then
for i:=1 to n do
begin
write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
end;
i:=0; zap:=0;
while (zap=0) and (i<=n) do begin
i:=i+1;
min:=nev-r[i];
if min>0 then zap:=i;
end;
if i<>n then
begin
for i:=zap to n do
begin
if min>(nev-r[i]) then
begin
zap:=i;
min:=nev-r[i];
end;
end;
writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
writeln ('По счету это ',i,'-ый жених');
end
else writeln('Среди женихов нет подходящего для нашей невесты.');
end;
else writeln('Число женихов должно быть более 2!');
end.
Const
Eps = 0.01;
A = -100;
B = 100;
N = 10;
Var
i : Byte;
m : array[1..N] of Real;
Flag: Boolean;
Begin
Flag:=True;
For i:=1 to N do
Begin
Repeat
Write('Введите число № ',i,' : '); Readln(m[i]);
Until (m[i]>=A) and (m[i]<=B);
end;
Writeln;
For i:=2 to N do
If abs(m[i-1]-m[i])<Eps then
Begin
Writeln(m[i-1],' ',m[i]);
Flag:=False;
end;
If Flag then Writeln('НЕТ');
end.
Результат:
Введите число № 1 : 2.3
Введите число № 2 : 2.4
Введите число № 3 : 2.45
Введите число № 4 : 2.46
Введите число № 5 : 2.465
Введите число № 6 : 3.0
Введите число № 7 : 4.0
Введите число № 8 : 4.01
Введите число № 9 : 4.005
Введите число № 10 : 4.007
2.45 2.46
2.46 2.465
4 4.01
4.01 4.005
4.005 4.007
1024000 бит сек * 5 сек = 5120000 бит вес файла (инф. объём).
Ответ:
Интернет вещей (Internet of Things — IoT) включает в себя сразу несколько явлений. Это сами устройства, которые вышли в сеть и взаимодействуют между собой. Это и способ подключения – M2M – то есть машины-к-машине, без участия человека. Это и большие данные, которые теперь генерируют устройства. Данные, которые можно (и нужно) собирать, анализировать и в дальнейшем использовать для повышения комфорта или принятия бизнес-решений.
АПР, Школа №151 Мурманской области помогает вам:
1) 24 буквы + 8 цифр = 32 символа
2) 32 символа + 1 пробел = 33 символа
3) А так как для 32 символов нужно 5 бит, то для 33 символов нужно 6 бит
Ответ: i = 6 бит
2.
Здесь каждый раз придется задавать вопросы, чтобы уменьшить количество возможных вариантов.
1) больше или меньше 32?
2) больше или меньше 16?
3) больше или меньше 8?
4) больше или меньше 4?
5) больше или меньше 2?
Ответ: 5 вопросов.
3.
Не смогу помочь. Мне задали другое задание. Удачи. 3 уже обеспечена :)
