var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.
Var i,p:integer;
begin
p:=1;
for i:=-20 to 30 do
if i mod 3 = 0 then p*=i;
writeln(p);
<span>end.</span>
Степень числа.
Например, 1*10^2+4*10^1+3*10^0+5*10^-1
будет записана как 1*
![10^{2}](https://tex.z-dn.net/?f=10%5E%7B2%7D+)
+4*
![10^{1}](https://tex.z-dn.net/?f=10%5E%7B1%7D+)
+3*
![10^{-1}](https://tex.z-dn.net/?f=10%5E%7B-1%7D+)
Все что знаю
475: (в 8й )=100111101 (в 2й)
457: (В 8й)= 10010111
А в 10й , так и будет 457,475)))