При каком наибольшем введенном числе d после выполнения программы будет напечатано 75? var n, s, d: integer; begin readln(d); n : = 0; s : = 0; while s < = 365 do begin s : = s + d; n : = n + 5 end; write(n) end.

во-первых нам нужны только четное количество цифр в двоичном числе, если учесть максимальное 25160=110001001001000, т.е. мы идем от 2 до 14 цифр через 2.

1 цифра всегда единица. значит остается n нулей и n-1 единиц. теперь по формуле перестановки с повторениями(можешь почитать в инете), вычисляем последовательно:

1) 2 цифры = 1 вариант

2) 4 цифры = 3 варианта

3) 6 цифры = 10 варианта

4) 8 цифры = 35 варианта

5) 10 цифры = 126 варианта

6) 12 цифры = 462 варианта

7) 14 цифры = 1716  варианта

сложим и получим  2353 варианта.

Вот программа , если мы хотим сложить 2 квадрата одного числа program sqr;   var n,a: integer;   begin   write ('введите число> > ');   read (n);   a: = n*n+n*n;   writeln (a) end. но если мы хотим выразить 1 число в виде суммы 2-х квадратов и проверить возможно ли это, то (боюсь ошибиться) program sqr;   uses crt;   var n: integer; a,b: real;   begin   write ('введите число> > ');   read (n);   a: = sqrt(n);   if (a= sqrt(n)) and (a=(n*n)) then   begin   b: = sqrt(a);   if b= (a*a)+(a*a) then   writeln ('можно');   if b< > (a*a)+(a*a) then   writeln ('нельзя');   end;   if (a= sqrt(n)) and (a< > n*n) then   writeln ('нельзя') end.