AB(16) = 171(10)
25(8) = 21(10)
11000000(2) = 192(10)
11000011(2) = 195(10)
11011001(2) = 217(10)
11011111(2) = 223(10)
171+21=192
Отсюда следует, что в данном ряду чисел являющихся больше 192 - три: 11000011, 11011001, 11011111. Всё!
Перевод: 1024- 10000000000, 673- 101010001, 513-10000000001, 718- 1011001110. Это перевод из десятичной системы в двоичное кодирование! Не за что!
Домашние - Собака , кошка , курица.
Полосатые -Тигр , леопард.
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "корней нет"
END
END IF
IF d > 0 THEN
PRINT "x1="; (-b - SQR(d)) / 2 / a
PRINT "x2="; (-b + SQR(d)) / 2 / a
ELSE PRINT "x="; (-b) / 2 / a
END IF
Var a: array [1..8] of integer;
i: integer;
begin
for i := 1 to 8 do
readln(a[i]);
for i := 8 downto 1 do
writeln(a[i]);
<span>end.
Вот так)</span>