Переводим числа в двоичную систему счисления. Получаем:
а) 01000001 10000000 11111111 00001100
б) 11000000 00110000 00000000 00011000
1) Вычисляем длины всех его сторон
1. =A4+D6.
2. =B3-B9.
3. =B4-E8.
4. =B11+E4.
5. =E11*5.
6. =A1+2.
7. =E8*9.
8. =D16-25.
9. =C1-B5.
10. =B15+C8.
11. =C$2+$D4.
12. E$12+$D14.
13. $E$3+C1.
14. $D$2+D1.
15. B3+$D$3-E$2.
16. $E$3+C1.
17. C$2+$B4.
18. $E$3+C1.
19. Неверная ссылка.
20. C$22*$D22.
Зрительная, так как только её нельзя написать..
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>