Можно ли составить алгоритм так, чтобы можно было решить при любом значении x? : у вити было 7 рублей. он решил купить карандаш за x рублей. сколько денег у него останется или сколько не хватит?

Var x: real; begin  readln(x); if x> 7 then writeln(x-7) //выводится сколько не хватило. else writeln(7-x); //выводится сколько осталось. readln; end.

Program prostoe;   uses  crt;   var  i, {возможный делитель}  number : integer; {исследуемое число}  begin  clrscr;   writeln (‘какое число должно быть проверено? ‘);   read (number);   i : = 1;   repeat  i : = i+1;   until number mod i = 0;   if number=i  then  writeln (number,’ является простым‘)  else  writeln (number,’ делится на ‘,i);   readln;   end. 

Деление до конца  без штрафов возможно, если количество орехов в  кучке будет какой-либо степенью двойки (2, 4, 8, 16, 32, 64, 128, 256, 512).  число  769 - нечетно, следовательно, его можно представить < четное> +< нечетное> . при делении 768+1 получим первый штраф. число 768 не является степенью двойки, поэтому необходимо опять поделить орехи на неравные кучки: 512+256 (второй штраф). 512 и 256 - степени двойки, значит дальнейшее разделение можно выполнить без штрафов. можно делить, например, так: 1. 512 и 257 орехов (штраф 1 рубль) 2. 257 делим на 2 кучки: 256 и 1 (штраф 1 рубль) 3 и все следующие операции: кучки из  512 и 256 орехов делим на равные кучки (512:   256 и 256, 256: 128 и 128, 128: 64 и 64,  64:   32 и 32, 32: 16 и 16  и т. получаем, что минимальная сумма штрафа = 2 рубля.