99 ! информатика, 8 класс. нарисуйте блок-схему к : даны 10 чисел значения которых находятся в интервале от а до б найти пару соседних чисел (заданных друг за другом) у которых значения отличаются на число меньшее чем eps=0,01. числа последовательно. если пары нет, то вывести слово «нет». и напишите программу в pascale, решающую эту

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

мы учим информатикув строке 19 символов1 символ = 1 байт1байт = 8 бит (8 ячеек)19 * 8 = 152