Запишите через запятую наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 153? var n, s, d: integer; begin readln(d); n : = 33; s : = 4; while s < = 1725 do begin s : = s + d; n : = n + 8 end; write(n) end.

33 + k * 8 = 153, где k - количество итераций цикла

k = (153 - 33) div 8 = 15;

s + k * d > 1725;

d > (1725 - 4) div 15;

d > 114;  

s + (k - 1) * d < = 1725;

d < = 1721 div 14;

d < = 122;

dmin = 115; dmax = 122

      по условию здесь шифр цезаря +7. это значит, что при  шифровании вместо каждой буквы писали другую, отдаленную от настоящей на 7 букв вперед по алфавиту.     значит при расшифровке надо сдвигаться, наоборот, на 7 букв назад, к началу алфавита. здесь пронумерованный алфавит. шифр      ц    т    ж    ф      я    л    щ №            24    20    8      22    33    13    27 № - 7      17    13    1      15    26    6    20 буква        п    л    а      н    ш      е      т ответ: планшет приложение: пронумерованный алфавит а1    б2    в3    г4    д5    е6    ё7    ж8    з9    и10    й11    к12    л13    м14    н15    о16    п17    р18    с19    т20    у21    ф22    х23    ц24    ч25    ш26    щ27    ъ28      ы29    ь30    э31    ю32      я33

Var s,a,q: integer; b,c: real; begin readln(s); // вводим трёхзначное число a: = (s div 100) mod 2; // получаем 1 цифру if a = 0  then begin // проверяем  b: = s div 10;       b: = b - s div 100 * 10 ; // "вытаскиваем" среднюю цифру  c: = s mod 10; // берём последнюю  writeln(s div 100,c,b);   end else begin  b: = s div 10;       b: = b - s div 100 * 10 ; // повторяем со средней цифрой  c: = s mod 10; // берём последнюю (также повторяем)  writeln(b,s div 100,c);   end; end. наверно можно было и