B = 2; d = 17
b<=15 ⇒ 2<=15 ⇒ true (истина) ⇒ b = b+d = 2+17 = 19
d = d+1 = 17+1 = 18
b = b+d = 19+18 = 37
Ответ: b=37
Ответ на Ваш вопрос - это "источник".
1.
-57.66 (10) = <span>-111001.10101000111 (2);
</span>- = 1;
111001.10101000111 = 1.1100110101000111 * 10^5;
5 = 101;
5 бит = (5-1) = 1111 разрядов;
101+1111 = 10100 смещённый порядок.
1100110101000111 мантисса
1 10100 1100110101000111 0000000000
2.
0 10000001000 10010111100101 0000000000
11 бит = (11-1) = 1111111111 разрядов.
10000001000 - 1111111111 = 1001 (2) порядок
1001 (2) = 9 (10)
1.10010111100101 * 10^9 = 1100101111.00101 (2)
1100101111.00101 (2) = <span>815.15 (10)
</span>
815.15 (10)
Var
a,b:array[1..100]of integer;
i,max,min,n:integer;
begin
readln(n);
max:=0; min:=32;
for i:=1 to n do
begin
readln(a[i],b[i]);
if a[i]>max then max:=a[i];
if b[i]<min then min:=b[i];
end;
if min>=max then
writeln('YES')
else writeln('NO');
end.
Пример:
3
1 5
3 10
4 14
<span>YES</span>
Program srednee;
var
a, b, c:integer;
sa:real;
begin
write ('Введите а='); readln (a);
write ('Введите b='); readln (b);
write ('Введите c='); readln (c);
if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then
begin
a:= sqr(a); writeln ('Квадрат а=', a);
b:= sqr(b); writeln ('Квадрат b=', b);
c:= sqr(c); writeln ('Квадрат c=', c);
end else begin
if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then
begin
a:= a+10; writeln ('а+10=', a);
b:= b+10; writeln ('b+10=', b);
c:= c+10; writeln ('c+10=', c);
end else begin
sa:=(a+b+c)/3;
write ('Среднее арифметическое =', sa);
end
end
end.