1)
N = 2^i; i = 4; N = 16;
16 Цветов.
2)
000
001
010
011
100
101
110
111
8 цветов. Возможно это решается не так.
3)
N = 16;
i = 4;
4 бита.
4)
N = 4;
i = 2;
2 бита.
А что именно надо? В чем проблема
Ответ:
var i: integer;
begin
for i:=10 to 99 do
if (i mod 7 = 0) and (616 mod i = 0) then writeln (i)
end.
Program xxx;
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.
10. d
11. Мотоцикл
12. 2
13. 2
14. 3
15. 1,2
16. 2
17. с
18. b