Var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.
Перевод из аналога в цифру. запись мнговенных значений аналогового сигнала с определённой частотой
Var
a, b, c : integer;
begin
write("Введите 1 целое число: ");
readln(a);
write("Введите 2 целое число: ");
readln(b);
c = a + b;
writeln("Сумма равна: ", c);
end.
40= 101000 в двоичной
40= 50 в восьмеричной
40= 28 в шеснадцатеричной