1: наименьшая единица измерения информации.
2: краткое прилагательное, образованное от глагола бить.
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
<span>745(8) -> x(10)
745(8) = 7*8^2+4*8^1+5*8^0 = 485(10)</span>
<span><span>745(8) = 485(10)</span></span>
Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
Какие предложения? Напиши по подробнее