101 0100 1010(2) = 54A(16)
BABA(16) = 1011 1010 1011 1010(2)
110 0011 0110(2) = 636(16)
CACA(16) = 1100 1010 1100 1010(2)
ПЕР
числа: РЯД 3 ИЗ ВЕЩ;
сч: ЦЕЛ;
найдено: КЛЮЧ;
УКАЗ
найдено := ОТКЛ;
ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП
ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО
Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0);
ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
КОН
КОН;
ЕСЛИ НЕ найдено ТО
Вывод.Цепь("Ни одно число не принадлежит интервалу.")
КОН
50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB 1
15 : 3 = 5 рублей было изначально в копилке