Наибольшее пятизначное двоичное число будет состоять из всех единиц:
![11111_2](https://tex.z-dn.net/?f=11111_2)
Переведём его в десятичную систему:
![11111_2=1*2^4+1*2^3+1*2^2+1*2^1+1*2^0=16+8+4+2+1=31](https://tex.z-dn.net/?f=11111_2%3D1%2A2%5E4%2B1%2A2%5E3%2B1%2A2%5E2%2B1%2A2%5E1%2B1%2A2%5E0%3D16%2B8%2B4%2B2%2B1%3D31)
Хотя, гораздо проще такое число переводить как наименьшее шестизначное минус один: ![100000_2-1=1*2^5-1=32-1=31](https://tex.z-dn.net/?f=100000_2-1%3D1%2A2%5E5-1%3D32-1%3D31)
Uses crt;
var x,y:integer;
begin
write('x='); readln(x);
y:=sqr(1-sqr(x)+5*sqr(sqr(x)));
writeln('y=',y);
<span>end.</span>
Программу я не смогу написать, но примерный алгоритм дам.
Если (M = 1, 3, 5, 7, 8, 10, или 12) И (D <= 30), то (D = D + 1)
Если (M = 1, 3, 5, 7, 8, 10) И (D = 31), то (M = M + 1, D = 1)
Если (M = 12) И (D = 31), то (G = G + 1, M = 1, D = 1)
Если (M = 4, 6, 9, 11) И (D <= 29), то (D = D + 1)
Если (M = 4, 6, 9, 11) И (D = 30), то (M = M + 1, D = 1)
Если (M = 2) И (D <= 27), то (D = D + 1)
Если (M = 2) И (G mod 4 <> 0) И (D = 28), то (M = 3, D = 1)
Если (M = 2) И (G mod 4 = 0) И (D = 28), то (D = D + 1)
Если (M = 2) И (G mod 4 = 0) И (D = 29), то (M = 3, D = 1)
Если (M = 2) И (G = 1900 или 2100) И (D = 28), то (M = 3, D = 1)
В последней строчке я учёл разницу между Григорианским и Юлианским календарями.
По Юлианскому после 28.02 1900 или 2100 года наступит 29.02.
По Григорианскому наступит 01.03.
Var a, b: word;
k: byte;
begin
write ('Введите двузначное число: ');
readln (a);
b := a;
k := 0;
while b <> 0 do begin
a := a mod 10;
k := k + 1;
b := b div 10
end;
if (k <> 2) then
writeln ('Вводите только двузначные числа')
end.
Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся