Легко. придумайте высказывание, которое может быть описано формулой f=(a+b)× не с

program exapmle2; var x,y,k: integer; begin writeln('эта программа определяет, число соседств чисел с одинаковыми знаками'); write('введите число: '); read(x); y: =x;

write('введите число: '); //добавить эти 2 строки read(x);

k: =0; while x< > 0 do // поменять у на х begin //if x*y< 0 then inc(k); убрать эту строку if x*y> 0 then inc(k); y: =x; read(x); // изменить у на х end; writeln(' число соседств ',k); writeln('нажмите enter для завершения работы программы'); readln; end.

одно число будет больше другого(при одинаковом количесте разрядов) если у первого старший разряд будет больше чем у второго. если же они одинковые, то также сравниваются разряды следующие за старшими и т.д.

минимальным будет число, в котором цифры будут идти в порядке возрастания(слева на право) т.к. самым старши достанутся меньшие цифры, а младшим большие и само число соответственно будет меньше

т.е. 2468 минимальное

максимальным оно будет если цифры будут идти наоборот в порядке убывания, тогда старшим достанутся большие цифры и само число соответственно будет больше

т.е. 8642 максимальное