Ответ:
Дело мастера боится
Объяснение:
у человека, досконально знающего своё дело, ремесло, даже сложная работа будет ладиться и получаться.
Program Z1;
Var n,i,s: real;
Begin
write ('n=');
read (n);
S:=0;
i:=3;
while i<=n do
Begin
i:=i+4;
S:=S+i;
End;
write ('S=',S);
End.
Допустим, дано число в 10й СС: 42;
Переводим в 16ю СС:
42 / 16 = 2 (остаток 10, 10 = A)
Ответ: 2A.
В 8ю:
42 / 8 = 5(остаток 2)
Ответ: 52
В 2ю:
42 / 2 = 21 (ост 0)
22 / 2 = 10 (ост 1)
10 / 2 = 5 (ост 0)
5 / 2 = 2 (ост 1)
2 / 2 = 1 (ост 0)
Ответ: 101010
Т.е. делишь число на основание той СС, в которую хочешь перевести до того момента, когда целая часть будет меньше основания СС в которую переводишь, остатки выписываешь снизу вверх.
Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
Begin
If l*x-5*x+2*l=2 then writeln(x);
End;
End.