перевести число 18 в троичную систему счисления, в которой 0=вкл, 1=выкл, 2=миг.
18(10)=200(3)
Число 200 изображено в троичной системе и равно 18 в десятичной. Кол-во цифр в числе 200 - 3. Значит всего три лампочки.
Var
a,b:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if a=b then WriteLn(a,' = ',b)
else if a>b then WriteLn(a,' > ',b)
else WriteLn(a,' < ',b);
End.
M = 15, n = 1
m = m-2 = 15-2 = 13; n = n*2 = 1*2 = 2
m<6 ⇒ 13<6 ⇒ нет
m = m-2 = 13-2 = 11; n = n*2 = 2*2 = 4
m<6 ⇒ 11<6 ⇒ нет
m = m-2 = 11-2 = 9; n = n*2 = 4*2 = 8
m<6 ⇒ 9<6 ⇒ нет
m = m-2 = 9-2 = 7; n = n*2 = 8*2 = 16
m<6 ⇒ 7<6 ⇒ нет
m = m-2 = 7-2 = 5; n = n*2 = 16*2 = 32
m<6 ⇒ 5<6 ⇒ да
Ответ: n=32, m=5
Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.
7. Европейские реки кроме Нила
8. Марки автомобилей кроме Руслана
9. Камни кроме торфа
10. Средний род кроме кофе